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ABSTRACT 


The  Air  Force  Armament  Laboratory  AAA  Simulation  Computer  Program 
and  MICE  II  have  been  adapted  for  batch  processing  use  on  the  Naval 
Postgraduate  School  IBM  3033  computer.  To  ease  data  entry  and  reduce 
errors,  a  preprocessor  program  (PIP)  was  written  at  the  school.  The 
modifications  necessary  to  convert  PIP  from  a  batch  program  to  an 
interactive  one  are  described  herein. 

This  conversion  to  an  interactive  program  has  two  qoals:  qraphics 
capability  and  portability.  The  revised  versions  are  desiqned  in  a  manner 
that  allows  users  to  modify  routines  to  meet  their  particular  hardware 
and  software.  The  graphics  capability  implements  PIP  using  TEKTRONIX 
4010  family  hardware  and  PLOT-10  software.  Derivative  versions  implement 
the  program  using  the  I8M  3277  graphics  system  and  using  strictly  keyboard 
versions.  In  addition  to  PIP,  a  program  for  graphic  design  of  scenario 
maps  was  developed. 
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I.  INTRODUCTION 


Simulating  an  aircraft  flight  path  requires  a  great  deal  of  informa¬ 
tion.  This  information  usually  includes  position  and  velocity  as  a 
function  of  time.  More  detailed  descriptions  may  require  heading,  climb, 
and  roll  angles,  as  well  as  velocity  components  in  one  or  more  coordinate 
systems.  Additionally,  the  simulation  will  have  constraints  on  the 
aircraft's  performance,  such  as  G  load  and  power  available.  Finally,  the 
simulation  will  have  certain  aspects  of  aircraft  utilization  such  as 
altitude  or  approach  limits,  which  it  tests.  These  might  relate  to  a 
bombing  mission,  transcontinental  passenger  service,  or  an  encounter  with 
an  anti-aircraft  system.  Although  real-time  flight  path  simulation  is 
necessary  in  the  final  stages  of  a  system's  development,  the  use  of 
simple,  pre-defined  flight  paths  in  the  early  design  phases  is  still  a 
helpful  tool. 

Generating  the  information  for  these  flight  paths  is  an  excellent 
application  of  the  capabilities  of  the  digital  computer.  Given  a  few 
oroad  parameters,  the  computer  can  generate  and  properly  format  the  other 
information  the  particular  simulation  requires.  The  alternative  is  the 
time-consuming  and  error-prone  process  of  having  the  simulation  user 
determine  and  properly  enter  all  of  the  data  needed  for  the  simulation. 

To  further  aid  the  user,  a  graphic  capability  is  desirable.  It  is 
much  simpler  for  a  user  to  decide  upon  a  flight  path  if  he  can  see  where 
he  is  flying.  In  addition,  cursor-mapped  input  reduces  the  chances  of 
incorrectly  typing  in  parameters. 
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There  are  two  simulation  programs  at  the  Naval  Postgraduate  School 
which  require  pre-defined  aircraft  flight  paths  as  input  data.  They  are 
the  Air  Force  Armament  Laboratory's  Anti-Aircraft  Artillery  (AAA)  Simula¬ 
tion  (called  P001)  and  the  Vought  Corporation's  surface-to-air  missile 
(SAM)  engagement  simulation  (called  MICE  II).  Both  programs  are  used  by 
the  military  aircraft  industry,  being  specifically  called  for  in  Reference  1. 
Both  programs  are  used  in  the  Naval  Postgraduate  School  course  in  aircraft 
survivability  (AE  3251)  as  tools  for  gaining  an  understanding  of  the 
factors  affecting  aircraft  survivability  in  a  hostile  AAA  and  SAM  environ¬ 
ment.  The  students  are  required  to  fly  a  bombing  mission  against  a 
target  defended  by  seven  AAA  weapons,  one  which  has  a  fixed  location,  and 
one  SAM  site.  They  are  formed  into  teams  of  two,  and  each  team  plots  a 
flight  path  and  selects  defensive  positions.  One  team  then  flies  its 
route  against  an  opposing  team's  weapons,  and  vice  versa. 

At  the  present  time,  P001  and  MICE  II  are  implemented  for  batch 
processing  on  the  school's  IBM  3033  computer,  having  been  converted  from 
the  IBM  360  system  in  1980.  The  input  to  both  programs  requires  a 
significant  amount  of  formatted  data,  the  entry  of  which  is  time-consuming, 
tedious,  and  error-prone.  To  alleviate  part  of  this  problem,  a  pre¬ 
processing  program  called  PIP  (P001  Input  Processor)  was  written  in  1978. 

This  program  required  that  the  operator  enter  only  the  milestone  X,  Y, 
and  l  coordinates,  an  initial  speed,  and  control  indicators  for  the  type 
of  output  desired.  It  too  was  written  for  the  IBM  360  system  batch  mode. 

It  was  converted  to  the  new  3033  system  in  1981,  but  was  not  re-written. 

With  the  improved  time-sharing  capabilities  of  the  3033  system,  it 
was  desirable  to  make  PIP  interactive.  A  significant  problem  of  the 


batch  system  was  the  requirement  to  submit  a  complete  flight  path  to  PIP 
for  evaluation  with  respect  to  aircraft  performance  and  mission  rules. 

PIP  evaluated  the  milestones  and  indicated  which  ones  were  outside  the 
allowable  limits  of  the  parameters.  The  student  then  had  to  change  the 
milestones  that  were  causing  the  problems  and  hope  that  the  corrections 
did  not  affect  the  points  that  were  not  changed.  Since  the  run  often 
generated  punched  cards  for  P001  and  MICE,  a  great  deal  of  waste  occurred. 
Another  problem  was  that  the  user  had  to  plot  the  points  on  a  map,  copy 
them  to  a  piece  of  paper,  and  then  type  or  punch  them  in  using  the  proper 
FORTRAN  format.  This  was  extremely  tedious  and  sensitive  to  typing 
errors . 

The  major  goal  of  this  thesis  effort  was  to  alleviate  these  problems 
through  the  use  of  an  interactive,  graphics  capability.  The  availability 
of  TEKTRONIX  and  IBM  graphics  terminals  and  software,  and  the  IBM  3033 
CMS  made  this  possible.  Using  a  graphic  terminal,  the  user  is  presented 
with  a  map  of  an  attack  scenario.  A  cursor  is  used  to  input  the  hostile 
AAA  and  SAM  locations.  The  cursor  is  also  used  to  input  the  aircraft 
milestone  position  and  velocity.  As  each  milestone  is  entered,  the 
flight  parameters  are  computed  and  checked  against  flight  (maximum 
velocity,  G  loading,  etc.)  and  simulation  (bomb  drop  distance,  pop-up 
maneuver,  etc.)  constraints  for  validity.  Milestones  which  do  not  meet 
the  constraints  are  rejected,  the  user  is  informed  of  the  error,  and  a 
new  milestone  is  requested.  At  any  time  up  to  the  final  milestone 
the  user  may  reset  the  problem  to  any  previous  point.  The  user  may  also 
input  oata  from  an  existing  file  to  re-run  a  previous  trial.  When  the 
final  milestone  is  identified,  the  operator  is  given  the  option  of 


generating  P001  and  MICE  input  data  files,  or  no  file  at  all.  In  addition, 
tne  gun,  SAM,  and  flightpath  data  are  saved  for  later  use. 

A  secondary  goal  was  that  of  software  transportability.  The  intention 
is  to  make  the  programs  available  to  the  survivability  community.  To 
support  this  goal,  a  modular  design  was  used.  Routines  which  were 
software  or  hardware  dependent  were  modularized  for  ease  of  replacement. 
Requirements  unique  to  the  user  (simulation  rules,  vulnerability  tables, 
etc.)  were  also  modularized.  This  modularization  allowed  the  creation  of 
a  non-graphic  version  that  would  work  at  any  keyboard  terminal. 

The  main  body  of  this  thesis  will  describe  the  functions  of  the 
various  modules.  This  will  include  a  description  of  parameters  passed 
and  common  blocks  required. 
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II.  APPROACH 


A.  GOALS 

As  stated  above,  the  problem  was  approached  with  two  goals  in  mind: 
ease  of  interaction  and  transportability.  Ease  of  interaction  meant  that 
the  system  should  require  minimum  interaction  from  the  user  while  provid¬ 
ing  rapid  feedback  to  required  inputs.  Transportability  meant  that  users 
on  other  systems  could  easily  convert  the  program  to  their  systems. 

To  support  the  goal  of  simple  interaction,  a  graphics  capability  was 
felt  to  be  vital.  This  would  allow  the  user  to  get  a  much  better  feel 
for  the  data  he  was  creating.  In  addition,  the  burden  of  formattinq  and 
copying  would  be  eliminated.  Once  the  data  has  been  input,  the  proqram 
must  be  prompt  in  providing  feedback  as  to  its  validity.  A  major  concern 
in  interactive  systems  is  the  response  time.  For  direct  data  input,  a 
response  time  of  less  than  one  second  is  desirable.  For  inputs  requirinq 
further  computation,  two  to  three  seconds  is  an  adequate  time.  For 
complicated  actions,  such  as  drawing  a  map,  responses  on  the  order  of 
minutes  is  appropriate.  These  times  are  primarily  based  on  the  human 
willingness  to  accept  delay. 

To  meet  the  requirements  of  transportabi 1 ity,  several  changes  to 
PIP  were  necessary.  To  support  different  hardware  and  software  configur¬ 
ations,  any  section  which  relied  on  specific  system  characteristics  had 
to  be  isolated  for  easy  replacement.  This  applied  particularly  to  the 
graphics  sections,  which  presently  require  either  the  TEKTRONIX  4010 
family  of  terminals  and  PLOT-10  software,  or  IBM  graphic  terminals  and 


GRAF77  software.  8y  isolating  these  modules  in  FORTRAN  subroutines,  the 
system  will  operate  with  other  graphic  systems  if  the  appropriate  software 
is  changed.  By  eliminating  the  graphic  commands,  the  system  can  be 
converted  to  run  on  any  keyboard  terminal. 

Another  area  where  changes  are  needed  is  in  the  sections  dealinq 
with  simulation  rules.  The  rules  presently  included  are  those  which 
support  the  Naval  Postgraduate  School  aircraft  survivability  course.  The 
flight  parameters  are  computed  from  the  user  input  of  position  and 
velocity.  Other  users  may  desire  to  incorporate  more  or  less  sophis¬ 
ticated  rules  and  parameter  computation  to  better  meet  their  needs.  To 
accomplish  this,  two  subroutines  and  the  8L0CK  DATA  must  be  chanoed. 

B .  METHODOLOGY 

In  planning  the  program,  the  basic  logic  sequence  was  first  outlined. 
This  allowed  the  preliminary  definition  of  the  various  modules.  A  module 
was  created  any  time  a  function  either  occurred  more  than  once,  or 
required  implementation  unique  to  a  particular  system.  For  example,  the 
ability  to  read  position  coordinates  was  needed  several  times,  so  the 
module  XYZIN  was  written.  Similarly,  providing  information  to  the  user 
to  assist  in  aligning  his  flight  path  properly  for  a  bomb  run  occurs  in 
only  one  location,  but  the  manner  in  which  the  data  is  displayed  depends 
on  the  type  of  terminal  being  used. 

Once  the  modules  were  defined,  it  was  possible  to  determine  which 
data  would  be  shared  between  them.  When  several  modules  required  the 
same  data,  or  a  parameter  list  would  be  extremely  long,  a  global  data  set 
was  created  to  pass  the  information. 
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Finally,  the  system  was  implemented  with  a  top-down  approach. 

Stubs  were  used  by  higher  level  modules  until  lower  level  modules  could 
be  written  and  tested.  This  approach  reduced  the  code  that  had  to  be 
checked  after  a  particular  test  when  an  error  was  discovered. 
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III.  FUNCTIONAL  DESCRIPTION 


A.  OATA  SETS 

1.  Internal  Sets 

a.  Screen  Window  Defined 

This  data  set  must  contain  the  coordinates  of  the  various 
screen  windows  which  the  program  will  use. 

b.  Target  Definition 

This  data  set  contains  the  virtual  screen  coordinates  of 

the  target. 

c.  Options  List 

This  data  set  contains  the  variables  necessary  to  transmit 
user  options  throughout  the  program. 

d.  Flight  Parameter  List 

This  data  set  contains  the  variables  which  define  the  flight 

path . 

e.  Simulation  Parameter  List 

This  data  set  contains  the  variables  which  are  the  constraints 
on  aircraft  performance  that  the  user  wishes  to  incorporate. 

f.  Coordinate  List 

This  data  set  contains  the  variables  associated  with  the 
user's  entry  of  milestones. 

g.  Error  Message  Pointer 

This  data  set  contains  the  informal ;on  necessary  to  locate 


the  error  messages. 


2.  External  Sets 


a.  Weapon  Locations 

This  data  set  contains  the  location  of  the  hostile  weapon 

sites. 

b .  Map  File 

This  data  set  contains  the  X/Y  coordinate  pairs  and 
instruction  markers  for  drawing  the  attack  scenario  map. 

c.  Milestone  File 

This  data  set  contains  the  X,  Y,  and  Z  coordinates,  velocity, 
and  option  commands  for  each  milestone  of  the  flight  path. 

d.  Output  File 

There  is  a  separate  file  for  each  simulation  for  which  the 
program  provides  data.  In  addition,  a  scratch  file  is  maintained  in  case 
of  system  failures. 

e.  Rule  File 

This  file  saves  the  simulation  constraints  to  allow  the  user 
to  rapidly  change  the  entire  set  of  constraints. 

B .  MODULES 
1.  MAIN 

This  module  is  the  sequence  control  routine  and  is  invoked 
on  program  load.  The  module  calls  BEGIN  to  request  the  user's  options. 

It  then  calls  SCENE  to  draw  the  scenario.  Based  on  user  response  during 
initialization,  the  module  then  establishes  the  weapon  locations  by 
reading  a  disk  file,  using  a  default  set,  or  having  the  user  enter  them 
at  the  terminal.  If  the  terminal  input  option  is  selected,  the  old 
weapon  site  file  is  erased  and  the  new  values  are  placed  in  it.  MAIN 


then  accepts  data  for  the  aircraft  flight  path  milestones.  The  user 
decides  during  initialization  whether  the  data  will  come  from  a  disk  file 
or  the  terminal  and  whether  or  not  errors  will  cause  the  inputs  to  be 

rejected.  Once  the  data  for  each  milestone  is  read,  the  flight  parameters 

are  computed  in  the  VALSET  module  and  checked  for  errors  in  the  ERRCHK 

module.  Errors  are  identified  to  the  user  and  the  data  is  rejected  if 

the  user  so  indicated.  If  no  errors  occur,  or  if  they  are  being  iqnored, 
the  module  calls  the  PTHPLT  module  to  draw  the  current  leg.  When  usinq 
the  terminal  to  enter  the  milestone  data,  the  user  may,  at  any  point 
before  the  final  milestone,  reset  the  flight  path  to  a  previous  ooint  and 
begin  from  there  to  enter  new  data.  If  the  input  disk  file  has  a  continu¬ 
ation  command,  the  program  will  shift  from  the  disk  input  mode  to  the 
terminal  input  mode.  Once  the  final  entry  is  indicated,  MAIN  calls  the 
ELFIN  module  to  obtain  the  user's  output  options  and  then  calls  the 
PRESET  module  to  implement  them. 

2.  VALSET 

VALSET  is  the  module  responsible  for  computation  of  those 
parameters  required  by  the  main  simulation  programs  but  not  provided  by 
the  user.  It  contains  the  equations  necessary  for  the  computation  of 
those  parameters.  The  module  can  also  indicate  an  error  when  the  user's 
data  causes  a  condition  which  will  be  undefined,  such  as  inputs  which 
cause  a  division  by  zero. 

3.  ERRCHK 

This  module  contains  the  rules  that  the  user  wishes  the  flight 
path  to  obey.  These  include  constraints  on  flight  performance  (thrust, 
acceleration,  etc.)  and  rules  particular  to  the  mission  (approach  rules. 
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bomb  release  limits,  etc.).  A  violation  returns  an  error  code  identifying 
the  rule  that  was  violated. 

4.  PTHPLT 

This  is  the  module  responsible  for  notifying  the  user  that  the 
data  entered  met  all  the  constraints  and  has  been  accepted.  It  also 
saves  the  user's  input  in  a  scratch  file  to  protect  against  system 
crashes. 

5.  SPOT 

This  module  is  the  actual  interface  between  the  user  and  the 
computer  for  entering  position  data.  It  obtains  two  positions  (X  and  Y) 
and  two  command  inputs  from  the  user  and  transmits  them  to  the  program. 

The  calling  routine  is  responsible  for  properly  interpreting  the  X  and  Y 
values. 

6.  SCENE 

SCENE  is  responsible  for  drawing  the  graphic  displays  needed  by 
the  program.  Data  for  the  map  is  read  from  the  map  file.  The  data  is 
either  a  move  or  stop  command  or  an  X/Y  pair  indicating  where  the  beam  is 
to  be  positioned.  The  module  also  has  a  role  in  the  reset  sequence. 

When  a  reset  procedure  is  executed  by  MAIN,  it  passes  the  information  to 
SCENE.  SCENE  then  prompts  the  user  to  indicate  which  milestone  is  the 
last  one  he  wishes  to  retain.  This  value  is  returned  to  MAIN. 

7.  WIN 

This  module  is  responsible  for  defining  a  window  on  the  screen. 

The  module  is  provided  with  the  screen  coordinates  desired  and  the 
virtual  range  that  the  window  represents.  The  lower  left  corner  is 
always  given  a  virtual  value  of  (0,0).  Under  control  of  the  calling 
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routine,  the  module  will  flash  the  window  to  act  as  a  prompt  to  the  user 
to  look  at  that  window. 

8.  XYZIN 

This  module  is  responsible  for  obtaining  the  data  necessary  to 
identify  a  single  location.  The  module  defines  the  windows  by  calling 
wIN  and  actually  obtains  the  data  by  calling  SPOT. 

9.  GUNLOC 

This  module  is  used  to  display  special  points  such  as  the  weapon 
locations  and  the  target.  The  location  is  marked  with  a  "+".  It  then 
draws  a  circle  around  the  location  with  a  radius  specified  by  the  calling 
routine. 

10.  BEGIN 

BEGIN  is  the  module  responsible  for  initializing  the  Drogram. 

The  user's  options  for  data  input  are  requested  and  passed  to  MAIN  through 
the  Option  Data  Set.  The  module  also  executes  the  calls  that  initialize 
the  graphics  routines  and  computes  the  coordinates  of  the  various  windows 
to  be  used. 

11.  GUNCHK 

This  module  is  responsible  for  checking  the  gun  emplacement 
rules.  A  violation  results  in  the  appropriate  error  code  being  returned. 

12.  PRESET 

This  module  is  responsible  for  formatting  the  data  so  that  it 
is  compatible  with  the  data  file  expected  by  the  simulation  program  which 
is  to  use  the  flight  path.  It  is  also  responsible  for  conversion  from 
Metric  to  English  units  where  necessary. 
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13.  ELFIN 


This  module  obtains  the  user's  output  options  and  closes  access 
to  the  graphics  routines. 

14 •  AIMPT 

This  module  provides  a  display  to  the  user  to  allow  proper 
alignment  for  the  bombing  runs. 

15.  CONCHG 

This  module  allows  the  user  to  change  the  value  of  the  simulation 
limits.  It  also  saves  these  changes  and  allows  the  user  to  read  a 
complete  set  of  limits  from  a  disk  file. 

16.  ERRMK 

This  module  sends  error  messages  and  prompts  to  the  operator 
when  graphic  routines  are  being  used.  The  message  to  be  set  is  identified 
by  a  parameter  passed  by  the  calling  routine. 

17.  SAMCHK 

This  module  is  responsible  for  checking  for  violations  of 
the  SAM  emplacement  rules.  If  errors  are  detected,  it  calls  ERRMK  with 
the  appropriate  code  and  returns  a  "1"  to  the  calling  routine.  A  zero 
is  returned  if  no  errors  occur. 


» 
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IV.  FLIGHT  DYNAMICS 

When  defining  a  flight  path,  the  user  must  provide  a  finite  set  of 
milestone  coordinates.  The  leg  between  each  pair  of  milestones  is 
usually  considered  to  be  straight.  However,  this  straight  line  path 
causes  problems  with  the  computation  of  some  of  the  flight  path  parameters. 
For  instance,  the  heading  at  milestone  I  in  a  simple  simulation  could 
easily  be  computed  as: 

Heading^  =  Arctan  (DY/DX) 

where  DX  and  DY  are  the  X  and  Y  components  of  the  leg  from  milestone  1-1 
to  I.  If  "i"  and  "j"  are  redefined  as  I  and  I  +  1,  the  equation  is  still 
a  legitimate  approximation  of  the  heading  at  I.  In  reality,  the  aircraft’s 
heading  at  milestone  I  is  somewhere  between  these  two  values.  The  same 
is  true  of  the  climb  angle.  These  two  angles  in  turn  define  the  X,  Y, 
and  Z  components  of  velocity  at  the  milestone. 

To  account  for  this  ambiguity,  the  program  uses  an  averaging  technique 
for  computing  the  data  required  to  define  the  flight  path.  The  technique 
uses  the  operator's  input  of  position  and  velocity  over  three  milestones, 
except  at  the  initial  and  final  milestone,  to  compute  average  values  of 
heading,  climb,  and  velocity  components. 

First,  the  previous  leg's  distance  and  average  velocity  (from  1-2  to 
I - 1 )  are  saved  in  DISTl  and  VAVGL  for  later  use.  Next,  the  current  leg 
(from  1-1  to  I)  is  evaluated,  with  the  X,  Y,  and  Z  components  and  distance 
$  DIST  being  computed  as  follows: 
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OX  =  XI I)  -  X(I-l) 

OY  =  V ( I )  -  Y(I-l) 

DZ  =  Z( I)  -  Z(I-l) 

DIST  =  (DX2  +  DY2  +  DZ2)1/2 
The  average  velocity  VAVG  equation  is: 

VAVG  =  (VEL(I)  +  VEL ( I  - 1 ) ) / 2 

The  time  for  the  leg  (OT)  and  the  total  time  ( T( I ) )  is  then  computed: 

OT  =  OIST/VAVG 
T( I )  =  T(I-l)  +  OT 

The  average  X,  Y,  and  Z  components  of  velocity  along  the  leg  (1-1  to  I) 
oecome: 

AXO(I)  =  VAVG*OX/DIST 
AYD(I)  =  VAVG*DY/D 1ST 
AZO(I)  =  VAVG*DZ/OIST 

At  milestone  I,  the  acceleration  components  can  now  be  computed  for 
milestone  1-1  (see  Fig.  1): 

DELT  =  (T( I)  -  T( 1-2) )/2 
XOD  =  (AXO(I)  -  ( AXO ( I — 1 ) ) /DELT 
YDD  =  (AYO(I)  -  ( AYD( 1-1 ) ) /DELT 
ZOD  =  (AZD(I)  -  (AZD( I - 1 ) ) /DELT 

Three  working  vectors,  TDX,  TOY,  and  TDZ,  determine  the  average  X,  Y,  and 
Z  components  that  will  be  used  to  compute  the  climb  and  heading  angles. 
These  in  turn  will  determine  the  components  of  velocity  (XDOT,  YDOT, 

ZDOT)  at  the  previous  (1-1)  milestone.  The  equations  are: 

HDAVG  =  DIST/ (DIST  +  D I  STL ) 


i 
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TDX  =  (AXD( I ) / V AVG  -  AXD( I-1)/VAVGL)*HDAVG  +  AXO( I-1)/VAVGL 

TOY  =  ( AYD( I )/VAVG  -  AYD( 1-1 )/VAVGL)*HDAVG  +  AYD( I -1 ) / V AVGL 

TDZ  =  (AZD(I)/VAVG  -  AZO( 1-1 )/VAVGL)*HDAVG  +  AZO( 1-1 )/VAVGL 

UNIT  =  (TDX2  +  TOY2  +  TDZ2)1/2 

TDX  =  TDX/UNIT 
TDY  =  TDY/UNIT 
TDZ  =  TDZ/UNIT 
XDOT(I-l)  =  VEL(I-1)*TDX 
YDOT(I-l)  =  VEL( I-1)*TDY 
ZDOT(I-l)  =  VEL( I - 1 ) *TDZ 
CA(I-l)  =  Arctan  (TDZ/(TDX2  +  TDY2)1/2) 

HDG(I-l)  =  Arctan  (TDY/TDX) 

To  compute  the  roll  angle  RA  and  the  forces  acting  on  the  aircraft,  it 
is  necessary  to  transform  the  acceleration  from  the  group  coordinate 
system  into  an  aircraft  centered  coordinate  system  with  axes  parallel  and 
perpendicular  to  the  flight  path.  The  parallel  component  in  the  direction 
of  flight  is  TMD.  PH  is  perpendicular  to  the  flight  path,  parallel  to 
the  X/Y  plane,  and  out  the  left  wing.  PP  is  parallel  to  the  cross  product 
TMD  x  PH  (see  Fig.  2).  The  transformation  equations  are: 

TMD  =  All  +  A12  +  A13 

PH  =  A21  +  A22  +  A23 

PP  =  A31  +  A32  +  A33 

where 

GEE  *  9.82,  the  gravitational  constant 
HDCOS  =  cos  (HOG) 

HDSIN  *  sin  (CA) 


z 


gure  2.  Aircraft  and  Reference  Coordinate  Systems. 
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CACOS  =  cos  (CA) 

CASIN  =  sin  (CA) 

All  =  XDD ( 1-1 )*HDCOS*CACOS 
A21  =  XDD ( I-1)*HDSIN 
A31  =  XDD ( I-l)*HDCOS*CASIN 
A12  =  YOO( I-l)*HDSIN*CACOS 
A22  =  YOO( I-l)*HDCOS 
A3 2  =  YDD(I-1)*HDSIN*CASIN 
A13  =  (ZDD(I-l)  +  GEE)*CASIN 
A23  =  0 

A3 3  =  (ZDD(I-l)  +  GEE)*CACOS 

The  total  lift  ACLIFT  is  the  vector  sum  (PH  +  PP)  of  the  perpendicular 
forces  and  it  is  assumed  that  the  aircraft  will  roll  such  that  the  wings 
are  perpendicul ar  to  the  lift.  The  equations  are  therefore: 

ACLIFT  =  (PH2  +  PP2)1/2 
RA  =  -Arctan  (PH /PP) 

The  vectors  PH  and  PP  are  not  explicitly  computed  and,  with  the  acceleration 
in  terms  of  G's,  the  equations  become: 

TMD  =  (All  +  A12  +  A13 ) /GEE 
ACLIFT  =  ( ( A21  +  A22)2  ♦  (A31  +  A32  +  A33 ) 2 ) 1 /2/GEE 
RA  =  -Arctan  (A21  +  A22 )/( A31  +  A32  +  A33) ) 

TMD,  the  net  acceleration  parallel  to  the  flight  path,  is  the  sum  of  the 
aircraft's  thrust  and  drag  divided  by  aircraft  weight: 

F/W  =  ma/W  =  ma/mg  =  a/g  =  TMD 

where  F  =  total  force,  W  =  total  weight,  m  =  aircraft  mass,  a  =  accelera¬ 
tion,  and  g  s  gravitational  acceleration.  The  drag  force  can  be  computed 

from  the  lift.  The  equations  are  as  follows: 

31 


RHO  =  o^sg^e^0-103*^1)/1000) 

CL  =  2*ACLIFT/(RH0*VEL(I)2/WL) 

DW  =  ( (CDO  +  CDK*CL2")/CL)*ACLIFT 

TW  3  TMO  +  DW 

where  RHO  =  density  of  air  in  ( lb*sec2}/( ft2*meter2 ) .  The  mixed 

units  are  required  to  use  Metric  units  for  velocity  and  English  units  for 

wing  loading. 

CL  =  lift  coefficient 

2 

WL  =  wing  loading  in  lbs/ft 
DW  =  drag  divided  by  weight 
CDO  =  drag  coefficient  for  zero  lift 
CDK  =  factor  relating  lift  and  drag  coefficients 
TW  =  thrust  divided  by  weight 

Maximum  values  of  ACLIFT,  CL,  and  TW  were  used  as  constraints  on  aircraft 
performance.  TW  must  be  positive  or  zero.  If  it  is  found  to  be  negative, 
then  TMD  must  be  negative.  This  is  a  large  negative  acceleration  and 
implies  speed  brakes  are  being  used.  Consequently,  a  different  drag 
equation  must  be  used.  The  program  assumes  the  brakes  have  a  drag 
coefficient  of  one  and  a  surface  area  equal  to  five  percent  of  the  wing 
surface.  The  new  drag  equation  is: 

DW  =  ( ACL  I  FT /CL)*(0.05  +  CDO  +  (CDK*CL2))/2 
This  drag  is  used  to  reevaluate  TW  and  thus  determine  whether  or  not  the 
attempted  deceleration  exceeded  the  capabilities  of  the  speed  brake. 


V.  GRAPHICS  HARDWARE  AND  SOFTWARE 


Two  interactive  graphic  systems  are  suported  by  the  IBM  3033  computer. 
The  TEKTRONIX  PtQT-10  software  package  supports  terminals  from  the 
TEKTRONIX  4010  family  and  is  available  for  implementation  on  a  wide 
variety  of  computers,  including  minicomputers.  The  IBM  3277-based 
graphics  package  is  available  only  on  IBM  computers  used  in  conjunction 
with  modified  IBM  3277  terminals.  Both  systems  use  direct  view  storage 
tubes  for  the  graphics  display  and  keyboard  and  cursor  for  data  input. 

A  direct  view  storage  tube  is  one  in  which  the  picture  does  not  have 
to  be  continuously  refreshed.  The  major  advantages  with  this  type  of 
display  is  that  the  line  drawing  is  faster  and  the  lines  that  are  drawn 
are  continuous.  This  creation  of  continuous  lines  is  not  available  on 
raster  scan  (television  style)  display  devices.  These  displays  sweep 
horizontally  from  top  to  bottom  and  have  a  finite  number  of  elements, 
called  pixels,  that  are  turned  either  on  or  off  on  each  sweep.  These 
discrete  elements  can  lead  to  the  "staircase  effect,"  where  the  line 
makes  finite  jumps  from  one  row  or  column  to  another.  On  direct  view 
storage  tubes,  this  effect  is  eliminated  because  the  electron  beam  can  be 
steered  to  any  point  on  the  screen  and  moved  directly  to  any  other 
point. 

The  major  disadvantage  of  most  storage  tube  displays  is  that  portions 
of  the  screen  cannot  be  erased  without  erasing  the  entire  screen.  In 
order  to  remove  an  undesired  display,  the  entire  screen  must  be  cleared 
and  then  the  portions  that  are  to  be  retained  are  redrawn.  This  can  be 
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very  annoying  to  the  operator.  It  also  causes  delays  that  adversely 
affect  the  user's  willingness  to  continue  with  the  program.  For  instance, 
drawing  the  scenario  displays,  when  operating  at  300  BAUD,  takes  almost 
five  minutes.  Raster  scan  devices  do  not  have  this  problem  because  the 
picture  is  continuously  redrawn  and  there  is  no  difficulty  changing  it. 

The  TEKTRONIX  terminal  for  which  this  program  was  written  is  the 
Model  4012.  This  terminal  has  an  8-1/2  inch  by  6-1/2  inch  screen  and  a 
standard  computer  keyboard.  The  PLOT-10  software  identifies  the  screen  as 
a  coordinate  system  1,023  units  wide  and  780  units  high,  with  the  lower 
left  corner  having  a  value  of  (0,0).  The  software  also  provides  for  the 
definition  of  screen  windows  and  virtual  coordinate  systems.  A  screen 
window  is  a  rectangle  on  the  screen.  It  is  defined  by  the  lower  and  upper 
horizontal  and  vertical  coordinates  the  programmer  provides.  There  is  no 
limit  to  the  number  windows  that  can  be  defined,  but  only  one  exists  at  a 
particular  time.  A  similar  concept  is  the  virtual  window.  Once  a  screen 
window  is  activated,  the  programmer  can  assign  the  range  of  coordinates 
that  this  window  will  represent.  The  PL0T-10  software  also  provides  for 
converting  from  Metric  and  English  units  to  screen  units  and  vice  versa. 
Combined  with  a  virtual  coordinate  system,  this  allows  the  programmer  to 
provide  true  scale  drawings.  For  example,  the  attack  map  screen  window 
is  defined  as  starting  1/5  inch  from  the  left  side  of  the  screen  and 
extending  to  6-1/5  inches  from  the  left.  This  six  inch  length  is  then 
given  virtual  limits  of  0  and  18,000,  giving  a  true  scale  of  3,000 
meters/ inch. 

Hard  copy  output  from  the  TEKTRONIX  4012  can  be  obtained  by  connecting 
the  terminal  to  either  the  TEKTRONIX  4662  interactive  plotter  or  the 
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TEKTRONIX  4631  hard  copy  device.  The  4662  plotter  is  capable  of  being 
independently  controlled  with  P10T-10  software,  or  it  can  duplicate  what 
is  occurring  on  the  4012  screen.  Figure  3  is  the  output  from  the  plotter 
operating  in  parallel  with  the  terminal.  The  4012  can  also  electronically 
scan  the  display.  This  information  is  then  used  to  control  the  light 
intensity  that  exposes  the  light  sensitive  paper  in  the  4631  copier. 

Figure  4  is  the  output  obtained  from  the  4631  hard  copy  device. 

The  IBM  3277-based  graphics  system  is  a  dual  screen  system.  It  uses 
an  additional  circuit  card  in  an  IBM  3277  terminal,  which  has  a  raster 
scan,  to  drive  a  TEKTRONIX  622  direct  view  storage  tube  display.  The 
software  package  is  very  versatile.  It  provides  a  wide  variety  of 
tnree-dimensional ,  geometric,  and  vector-drawing  support  and  a  limited 
capability  for  a  moving  display.  Another  advantage  is  the  availability 
of  the  raster  terminal.  This  greatly  facilitates  alphanumeric,  as 
opposed  to  graphic,  input  and  output.  The  extensive  support  this  package 
provides  is  also  a  handicap.  The  functions  are  generally  more  difficult 
to  use  than  those  provided  by  PLOT-10.  In  addition,  the  software  is 
partially  incompatible  with  FORTRAN  terminal  input/output.  When  FORTRAN 
input/output  routines  (WRITE  or  RE AO }  are  used,  the  raster  screen  must  be 
manually  cleared  before  execution  continues.  This  is  a  major  distraction. 

Like  the  4012,  the  TEKTRONIX  622  can  electronically  scan  its  display 
and  drive  the  4631  hard  copy  device.  Figure  5  is  a  copy  of  the  display 
as  it  appears  on  the  622  screen.  Ultimately,  the  Naval  Postgraduate 
School's  TEKTRONIX  622' s  will  be  connected  to  a  VERSATEC  electrostatic 
plotter.  This  will  significantly  improve  the  overall  capability  of  the 
graphic  support  at  the  school. 


Figure  4.  TEKTRONIX  4012  Plot. 


Figure  5.  IBM  3277-based  Graphics  Plot. 


VI.  detailed  description 
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This  section  will  provide  a  detailed  description  of  the  program  as 
implemented  using  the  PLOT-10  software  to  support  the  TEKTRONIX  4010 
family  of  terminals.  The  first  segment  will  describe  the  internal  and 
external  data  required  by  the  program  while  the  second  will  describe  the 
modules. 

For  the  purposes  of  this  section,  a  definition  of  the  meaning  of 
"data  set"  is  required.  The  words  "data  set"  describe  a  logical  group  of 
data.  The  FORTRAN  language  uses  the  term  "data  set"  to  identify  a 
hardware  device.  The  term  "FORTRAN  data  set  (number)"  will  be  used  to 
define  this  concept.  For  example,  the  MAP  file  is  a  data  set  consisting 
of  points  that  define  the  scenario  map.  The  information  is  contained  on 
a  device  which  has  been  identified  as  FORTRAN  data  set  9. 

The  description  of  the  internal  data  will  identify  the  use  of  each 
variable  in  a  data  set,  and  the  range  of  values  the  variable  can  be 
assigned.  The  external  data  set  descriptions  will  list  the  contents  and 
format  of  each  element. 

The  final  part  of  this  section  will  describe  the  modules.  A  brief 
functional  description  will  be  given.  Those  parameters  which  must  be 
provided  to  the  module  or  returned  by  it  will  then  be  described.  The 
global  data  sets  which  the  module  uses  will  be  identified,  but  not  the 
individual  elements  of  the  set.  Next,  the  description  will  list  the 
higher  level  modules  that  the  module  must  support.  This  will  be  followed 
by  a  list  of  the  module's  local  variables,  which  will  describe  the  use 
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and  possible  values  of  the  variable.  The  final  segment  will  be  an 
algorithmic  and  flowchart  description  of  the  module.  In  the  algorithmic 
description  comments  will  be  marked  by  square  brackets  ([  ]). 

A.  INTERNAL  DATA  SETS 

1.  Screen  Window  Defined 

The  variables  for  this  data  set  are  contained  in  common  block  MN. 
The  variables  are: 

a.  I8AUD 

This  variable  identifies  the  baud  rate  of  the  user's  terminal. 
This  is  necessary  to  allow  the  screen  prompts  to  flash  sufficiently  long 
to  attract  attention,  but  not  too  long  as  to  be  distracting.  The  allow¬ 
able  values  are:  (1)  0--this  indicates  a  slow  (110-300  BAUD)  terminal 
interface;  and  (2)  any  positive  integer--this  indicates  a  fast  (1,300- 
9,600)  terminal  interface  with  the  computer.  The  larger  the  number,  the 
more  times  the  prompt  flashes  will  appear.  Since  the  baud  rate  determines 
the  length  of  time  between  flashes,  a  larger  number  of  flashes  will 
result  in  the  prompt  being  visible  for  a  greater  period  of  time. 

b.  MI  NY,  MAXY 

These  variable  identify  the  lower  and  upper  vertical  limits 
for  all  the  screen  windows.  They  can  be  assigned  any  positive  integer 
value  within  the  limits  of  a  TEKTRONIX  screen,  subject  only  to  the  con¬ 
straint  that  MAXY  is  greater  than  MINY.  For  the  TEKTRONIX  4012  terminal, 
the  values  are:  (1)  MINY  =  777-KIN(4.375),  which  places  the  screen 
windows'  lower  boundary  4.375  inches  from  the  top  of  the  screen;  and  (2) 
MAXY  =  777-KIN(0.375) ,  which  places  the  screen  windows'  upper  limit  0.375 
inches  from  the  top  of  the  screen,  making  the  windows  four  inches  high. 
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c.  MINX,  MAXX 


These  are  the  left  and  right  screen  limits  of  the  map  window. 
They  can  oe  assigned  any  positive  integer  value  within  the  limits  of  a 
TEKTRONIX  screen,  subject  only  to  the  constraint  that  MINX  is  less  than 
MAXX.  For  TEKTRONIX  4012,  the  values  are:  (1)  MINX  =  KIN(0.20),  which 
places  the  left  screen  boundary  of  the  map  one  fifth  inch  from  the  left 
edge  of  the  screen;  and  (2)  MAXX  =  KIN(6.20),  which  places  the  map's 
right  screen  boundary  6.20  inches  from  the  left  side  of  the  screen  for  a 
window  six  inches  wide, 
d.  MINI,  MAXI 

These  variables  define  the  left  and  right  screen  borders  of 
the  altimeter.  They  can  be  any  positive  integer  within  the  limits  of  the 
TEKTRONIX  screen,  subject  to  two  constraints.  MINI  must  be  less  than 
MAXI  and  the  range  of  MINl-MAXl  must  not  overlap  that  of  MINX-MAXX.  For 
this  program,  the  values  are  computed  as  follows:  (1)  MINI  =  MAXX  +  10, 
which  places  the  left  screen  limit  of  the  altimeter  window  10  units  to 
the  right  of  the  map  window;  and  (2)  MAXI  =  MAXX  +  185,  which  places  the 
right  border  185  screen  units  to  the  right  of  the  map  window  and  makes 
the  altimeter  window  175  units  wide. 


2.  Target  Definition 

The  variables  for  this  data  set  are  found  in  common  block  TAR, 


They  are: 

a.  TARGX 


This  is  the  X  coordinate  of  the  target.  It  must  have  a 
positive  value  less  than  18,000  to  appear  on  the  map  and  is  initialized 
in  the  Block  Oata  section  to  a  value  of  14,000. 
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b.  TARGY 


This  is  the  Y  coordinate  of  the  target  and  must  be  a  positive 
value  less  than  12,000  to  appear  on  the  map.  It  is  initialized  in  the 
81ock  Oata  section  to  a  value  of  7,220. 

3.  Option  List 

These  variables  are  found  in  the  common  block  OPT  and  are  defined 
as  follows. 

a.  IGUN 

This  is  a  variable  used  to  indicate  the  source  of  the  weapon 
site  data.  The  values  are  assigned  the  following  meaning:  (1)  0--the 
weapon  site  data  is  to  be  obtained  from  the  external  data  set  GUN  LOC; 

(2)  l--the  weapon  site  data  will  be  entered  by  the  user  at  the  terminal; 
and  (3)  any  other  value--the  weapon  site  data  is  the  default  data  contained 
in  common  block  PAR2. 

b.  IPNCH 

This  control  variable  relays  the  users  choice  of  the  output 
files  to  be  created  by  module  PRESET.  The  values  mean:  (1)  0 — no  output 
files  are  desired;  (2)  l--only  a  P001  file  is  to  be  written;  (3)  2--only 
a  MICE  II  file  is  to  be  written;  and  (4)  any  other  value--both  P001  and 
MICE  II  files  are  to  be  written. 

c.  IEXT 

This  controls  whether  or  not  the  P001  extended  output  option 
cards  are  written.  The  values  are:  (1)  l--extended  output  option  is 
requested;  and  (2)  any  other  value--the  option  is  riot  requested. 
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d.  ISAM 


This  is  the  missile  type  to  be  used  in  the  MICE  II  file. 

It  may  be  any  integer  between  1  and  7.  The  missile  type  is  defined  in 
Reference  2. 

e.  IMP 

This  indicates  the  user's  option  for  the  source  of  the 
milestone  data  and  has  the  following  definition:  (1)  0--the  data  is  to 
be  obtained  from  the  external  data  set  PTS  LOC;  and  (2)  any  other  value-- 
the  data  is  to  be  entered  by  the  user  at  the  terminal. 

f.  KER 

This  indicates  the  user's  option  to  ignore  errors.  The 
possible  values  are:  (1)  0--ignore  errors;  and  (2)  any  other  value--notify 
the  user  of  violations  of  the  simulation  parameters. 

4.  Flight  and  Weapon  Parameter  List 

This  data  set  consists  of  three  common  blocks.  These  blocks 
are  PAR,  PARI,  and  PAR2.  The  variables  in  PAR  are: 

a.  X,  Y,  Z 

These  are  200  element  arrays  where  X(I),  Y(I),  Z(I)  are  the 
X,  Y,  and  Z  coordinates  in  meters  of  milestone  I. 

b.  CA,  HOG,  RA 

These  are  200  element  arrays.  CA(I),  HOG(I),  and  RA(I)  are 
the  climb,  heading,  and  roll  angles  in  radians  of  the  aircraft  at 
milestone  I. 

c.  VEL 

This  is  a  200  element  array  with  VEL(I)  representing  the 
aircraft  velocity  in  meters/second  at  milestone  I. 
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The  variables  in  PARI  are: 


d.  XDOT,  YDOT,  ZOOT 

These  are  200  element  arrays.  XDOT(I),  YDOT(I),  and  ZDOT(I) 
are  the  X,  Y,  and  Z  components  in  VEL(I)  at  milestone  I. 

e.  MNUM 

This  is  a  counter  that  indicates  the  current  milestone. 

f. 

This  is  a  counter  that  indicates  the  milestone  at  which  the 
aircraft's  weapons  were  released. 

The  variables  in  PAR2  are: 

g.  T 

This  is  a  200  element  array.  T(l)  is  zero  and  T(I)  is  the 
elapsed  time  at  milestone  I. 

h.  XGUN,  YGUN,  ZGUN 

These  are  seven  element  arrays  which  contain  the  X,  Y,  and 
Z  location,  in  meters,  of  the  gun  emplacements.  The  default  values  are 
initialized  in  the  Block  Data  section. 

i.  XSAM,  YSAM,  ZSAM 

These  are  the  X,  Y,  and  Z  location,  in  meters,  of  the  SAM 
emplacement.  The  default  values  are  set  in  the  Block  Data  section. 

j.  GR 

This  is  a  seven  element  array.  GR(I)  is  the  engagement 
radius  of  gun  I.  The  values  for  GR  are  established  in  the  Block  Data 
section. 
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5.  Simulation  Parameter  List 


The  data  set  is  contained  in  commom  blocks  PAR3  and  PAR4. 

PAR3  contains: 

a.  TMD 

This  is  the  net  acceleration,  in  G's,  parallel  to  the  aircraft's 

flight  path. 

b.  ACL  I FT 

This  is  the  net  acceleration,  in  G's,  perpendicular  to  the 
flight  path  of  the  aircraft. 

c.  CLMAX 

This  is  the  maximum  allowable  coefficient  of  lift.  It  is 
initialized  to  1  in  the  Block  Data  section. 

d.  WL 

This  is  the  wing  loading  of  the  aircraft  in  pounds/ft  . 

It  is  set  to  100  in  the  Block  Data  section. 

e.  TMAX 

This  is  the  maximum  thrust-to-weight  ratio,  in  G’s,  that  the 
aircraft  can  provide.  The  initial  value  of  0.4  is  set  in  Block  Data. 

f.  CDO 

This  is  the  drag  coefficient  with  zero  lift.  Block  Data 
sets  it  initially  to  0.015. 

g.  CDK 

This  is  the  factor  relating  the  drag  and  lift  coefficients 
and  is  set  in  Block  Data  to  a  value  of  0.1. 
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h.  VMAX1,  VMAX2 

These  are  the  maximum  allowable  aircraft  velocities,  in 
meters/second,  before  and  after  the  bombs  have  been  released  and  are  set 
equal  to  260  and  310,  respectively,  in  Block  Data. 

The  variables  contained  in  PAR4  are: 

i .  APPMAX 

This  is  the  maximum  altitude,  in  meters,  that  the  aircraft 
can  ascend  to  before  executing  its  pop-up  maneuver.  Block  Data  sets  this 
variable  to  457. 

j.  HTMIN,  HTMAX 

These  are  the  minimum  and  maximum  altitudes,  in  meters, 
that  the  aircraft  can  position  itself.  HTMIN  is  set  to  60  and  HTMAX  to 
2,050  in  Block  Data. 

k.  SPDMIN 

This  is  the  aircraft  stall  speed,  in  meters/sec.  It  is  set  to 
an  initial  value  of  90  in  the  8 lock  Oata  section. 

l .  GMAX 

This  is  the  maximum  G  force  that  the  aircraft  can  sustain 
and  is  set  to  6  in  Block  Data. 

m.  P0PMIN 

This  is  the  minimum  distance  to  the  target,  in  meters, 
before  the  aircraft  can  begin  the  pop-up  maneuver.  Block  Data  sets  it 
at  6,000. 

6.  Coordinate  List 

The  variables  in  this  data  set  are  contained  in  common  block 
LOC.  The  variables  are: 
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a.  XI,  Yl,  Z1 


These  are  the  X,  Y,  and  Z  values  entered  by  the  user  at 

a  milestone. 

b.  VI 

This  is  the  velocity  selected  by  the  user. 

c.  LTR,  LTR2 

These  are  operator  commands.  They  have  the  following  meaning 
(1)  65- -th i s  indicates  that  the  user  wants  assistance  in  aligning  his 

flight  path  for  a  bombing  run;  (2)  66-- th i s  means  the  user  wants  to 
release  the  bombs  at  this  milestone;  (3)  85--this  means  that  the  user 
wants  to  reset  the  flight  path  to  an  earlier  point;  (4)  86— this  means 
that  the  user  is  finished  with  milestone  entry;  and  (5)  any  other  value- 
no  effect. 

7.  Error  Message  Pointer 

The  variables  in  this  data  set  are  found  in  common  block  ERR. 

They  are: 

a.  MKERX 

This  is  a  three  element  array  that  indicates  which  column 
contains  the  error  message.  For  the  TEKTRONIX  4012,  these  columns  are 
set  in  Block  Data  to  screen  coordinates  640,  340,  and  40. 

b.  MKERY 

This  is  a  20  element  array  that  contains  the  vertical  screen 
coordinates  of  the  error  messages.  The  array  is  initialized  in  Block 
Data. 
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3.  EXTERNAL  DATA  SETS 


1.  Weapon  Locations 

This  data  set  is  maintained  on  FORTRAN  data  set  10.  The  data 
set  is  written  using  (3F10.2)  format.  The  three  elements  are  the  X,  V,  and 
Z  coordinates  of  the  weapon  sites.  The  set  contains  seven  weapon  sites. 
These  are  the  coordinates  of  gun  sites  1-6  and  the  SAM  site. 

2.  Map  File 

This  data  set  is  found  on  FORTRAN  data  set  9.  The  format  is 
(2F10.2).  The  information  is  organized  as  follows: 

1.  The  first  element  is  the  coordinate  set  that  marks  the  first  point 
to  be  drawn  on  the  map. 

2.  Subsequent  data  is  interpreted  as  follows:  (1)  positive  values-- 
draw  a  line  to  the  point  that  was  just  read;  (2)  negative  value  greater 
than  -1-- ignore  this  set,  read  the  next  set  and  move  the  cursor  there 
without  drawing;  and  (3)  negative  value  less  than  -l--end  of  data. 

3.  Milestone  File 

This  data  set  is  found  on  FORTRAN  data  set  11.  The  format  is 
(4F10.0,13).  Each  line  is  organized  as  follows: 

a.  Elements  1-4 

These  are  the  X,  Y,  Z,  and  velocity  values  for  the  milestone 
in  (F10.0)  format. 

b.  Element  5 

This  is  the  command  and  is  interpreted  as  follows:  (1) 

83--last  milestone;  (2)  66--release  the  bomb  on  this  milestone;  and  (3) 
l--after  this  milestone,  stop  reading  milestones  from  the  external  data 
set  and  begin  accepting  them  from  the  user. 


These  files  contain  the  data  in  the  formats  specified  in  Refer¬ 
ences  3  and  4.  The  P001  file  is  written  to  FORTRAN  data  set  18  and  the 
MICE  II  file  is  written  to  FORTRAN  data  set  17. 

5.  Rule  File 

This  file  is  found  on  FORTRAN  data  set  16.  The  format  is  (6F12.4). 
The  first  set  of  six  contains  the  values  of  CLMAX,  WL,  SPDMIN,  GMAX, 

HTMIN,  and  HTMAX.  The  second  set  of  six  contains  POPMIN,  APPMAX,  TMAX, 

CDO,  CDK,  and  VMAXl.  The  final  set  of  three  contains  the  values  for 
VMAX2,  TARGX,  and  TARGY. 

C.  MODULES 
1.  MAIN 

a.  Function:  MAIN  controls  the  execution  of  the  entire  program. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  PAR,  PARI,  PAR2,  OPT,  LOC. 

d.  Called  By:  None. 

e.  Local  Variables: 

(1)  I— used  as  a  loop  counter. 

(2)  FTFAC— constant  for  converting  meters  to  feet. 

(3)  OGFAC— constant  for  converting  radians  to  degrees. 

(4)  ICT— counter  used  to  indicate  the  milestone  selected 
during  resets. 

(5)  LAST— end  of  file  marker  for  flight  path  file.  A  1 
indicates  the  flight  path  will  be  continued,  83  marks  the  final  milestone. 


(6)  DX,  DY,  DZ--X,  Y,  and  Z  components  of  the  final  leg 

of  the  flight  path,  used  to  compute  final  values  of  HOG,  CA,  XDOT,  YDOT, 
and  ZDOT. 

(7)  BLANK--constant  set  to  0  for  output  to  flight  path  file, 
f.  Algorithm 

initialize  MBR,  MNUM,  and  T(l) 
call  BEGIN  [initialize] 
call  SCENE  [draw  map] 
rewind  gun  disk  file 

if  (terminal  input  of  gun  sites)  then  [IGUN  =  1] 
prompt  user  to  input  gun  coordinates 
do  I  =  1  to  6 

do  until  ( IERR  =  0) 

I ERR  =  0 

call  XYZIN  [get  coordinates] 
if  (Zl>  =  1,000)  then  STOP 

if  (Zl>  =  5)  then  call  GUNCHK  [check  for  valid  location 
return  IERR  error  code] 

if  (IERROO  then  call  ERRMK  [indicate  error] 
end  do 

write  XI,  Yl,  and  Z1  to  disk  file  GUNLOC 
end  do 

write  missile  prompt 
do  until  (IERR  =  0) 

call  XYZIN  [get  SAM  coordinates] 
if  (Z1  >  =  1,000)  then  stop 
call  SAMCHK  [check  for  correct  placement] 
end  do 

write  SAM  coordinates  to  disk  file 
else  if  (disk  input  requested)  then  do  [IGUN  =  0] 
do  T  =  1  to  6 

read  XGUN(I),  YGUN(I),  and  ZGUN(I)  from  disk  file  GUN  L0C 
end  do 

read  XSAM,  YSAM,  and  ZSAM  from  disk  file  GUN  L0C 
end  if  [terminal  input  selected] 
do  until  (command  =  stop) 
do  I  =  1  to  7 

call  GUNLOC  [draw  gun  site] 
end  do 

call  GUNLOC  [draw  SAM  site] 
set  constants 

prompt  user  to  enter  milestones 
rewind  milestone  disk  file  PTS  L0C 

do  until  (command  =  stop  or  ((command  =  reset)  and  (terminal 
input  requested))) 
increment  MNUM 

do  until  ( IERR*KER  =  0  and  IERR  <>  12) 
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if  (disk  input  requested)  then  [IMP  =  0] 
do  until  (X  >  0.1) 

read  X,  Y,  Z,  VEL,  and  LTR  [LTR  is  command 
v  ar  i  ab  1  e  ] 
end  do 
LTR2  =  LTR 

if  (command  =  shift  to  terminal  input)  IMP  =  1 
[LTR  =  1] 

FIX  else  call  XYZIN  [get  X,  Y,  X,  VEL,  LTR,  and  LTR2] 

end  i  f 

if  (MNUM  =  1  and  command  =  stop)  then  STOP  [LTR  =  83  OR 
LTR2  =33] 
if  (MNUM  >  1)  then 
IERR  =  0 

call  VALSET  [compute  flight  parameters] 
if  (command  *  bomb  release)  then  M8R  =  MNUM  [LTR  =  66] 
if  (command  <>  restart  and  command  <>  stop)  then 
[LTR  <>  32  or  83] 

if  (IERR  =  0)  call  ERRCHK  [return  error  code  IERR] 
if  ( IERR*KER  <>  0  or  IERR  =  12)  then 
call  ERRMK 

if  (disk  milestone  input)  then  ask  user  if 
error  is  to  be  ignored 
if  (error  not  ignored)  then  go  to  FIX 
end  if 
end  if 

end  if  [MNUM  >  1] 

end  do  [until  IERR*KER  =  0  and  IERR  <>  12] 
call  PTHPLT  [mark  milestone] 
if  (command  *  aim)  call  AIMPT  [LTR  =  65] 
end  do  [until  command  =  stop  or  command  =  restart] 
if  (command  =  restart)  then  [LTR  =  82] 

call  SCENE  [redraw  map  and  get  restart  milestone] 
rewind  scratch  file  TEMP  DATA 
if  (MBR  >  ICT)  then  MBR  =  0 
if  (ICT  =  1)  then 
MNUM  =  0 

else 

do  MNUM  =  2  to  ICT 

call  PTHPLT  [plot  milestones] 
end  do 

decrement  NMUM 
end  if  [ICT  =  1] 
end  if  [command  =  restart] 
end  do  [until  command  =  stop] 
cal?  PTHPLT  [plot  final  milestone] 

LAST  =  IMP 

call  ELFIN  [get  output  options] 

compute  final  milestone  flight  parameters 

if  (new  flight  path  or  new  gun  locations  created)  then 

[IMP  =  0,  IGUN  >  0] 

rewind  flight  path  file  PTS  LOC 


■  ■ 
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IF  <  i  N  >  1 )  then  IGUN  =  1 
write  neader  on  PTS  LOC 
do  I  =  1  to  MNUM 
LTR  =  0 

if  (MBR  =  I)  LTR  =  66 

else  if  (I  =  MNUM)  then  LTR  =  LAST 

end  if 

write  to  disk  file  PTS  LOC  X,  Y,  Z,  VEL,  and  LTR 
end  do 

write  end  of  milestone  marker  to  file  PTS  LOC 
write  old  PIP  option  line  to  file  PTS  LOC 
if  (IGUN  <>  0)  then 
do  I  =  1  to  6 

write  XGUN,  YGUN,  and  ZGUN  to  disk  file  PTS  LOC 
end  do 

write  XSAM,  YSAM,  and  ZSAM  to  file  PTS  LOC 
end  i  f 

end  if  [IMP  =  1  or  IGUN  >  0] 
do  I  =  1  to  MNUM 

convert  CA,  RA,  and  HOG  from  radians  to  degrees 
end  do 
call  PRESET 
end  MAIN 

2.  VALSET 

a.  Function:  This  subroutine  computes  the  flight  parameters 
for  each  milestone.  XDOT,  YDOT,  ZDOT,  CA,  HDG,  and  RA  are  computed  for 
output  to  P001  and  MICE  II.  TMD  and  ACLIFT  are  computed  for  use  by 
ERRCHK.  See  Section  IV  for  the  equations  of  motion. 

b.  Parameters  Required:  IERR — set  to  12  if  there  is  no  change 
in  the  horizontal  (X,  Y)  position. 

c.  Common  Blocks:  PAR,  PARI,  PAR2,  PAR3. 

d.  Cal  led  By:  MAIN . 

e.  Local  Variables: 

(1)  GEE--gravitational  constant  9.82  meters/sec. 

(2)  DX,  DY,  0Z--X,  Y,  and  Z  components  of  the  flight-path 
leg  being  evaluated. 

(3)  VAVGL--average  velocity  of  the  previous  leg. 

(4)  0ISTL-- length  of  previous  leg. 


(5)  DIST -- 1 ength  of  the  current  leg. 

(6)  VAVG-- average  velocity  of  the  current  leg. 

(7)  QT--time  along  the  current  leg. 

(8)  AXD,  AYQ,  AZO— X,  Y,  and  Z  components  of  current  average 

velocity. 

(9)  OELT— time  along  current  and  previous  legs. 

(10)  XDD,  Y00,  ZDD--X,  Y,  and  Z  components  of  accelerat ion . 

(11)  HDAVG--weighting  factor  for  computing  TDX,  TOY,  and  TDZ. 

(12)  TDX,  TDY,  TDZ--weighted  X,  Y,  and  Z  components  of  velocity. 

(13)  UNIT--conversion  factor  to  make  (TDX  +  TDY  +  TDZ)  a  unit 

vector. 

(14)  CASIN,  CACOS— sine  and  cosine  of  the  climb  angle  CA. 

(15)  HDGSIN,  HDGCOS—  sine  and  cosine  of  the  heading  HDG . 

(16)  All,  A12,  A13 — X,  Y,  and  Z  components  of  acceleration 
parallel  to  the  flight  path. 

(17)  A21,  A22,  A23— components  of  acceleration  perpendicular 
to  the  flight  path  and  parallel  to  the  X/Y  plane  due  to  X,  Y,  and  Z 
compenents  of  acceleration. 

(18)  A31,  A32,  A33--components  of  acceleration  perpendicular 
to  the  flight  path  not  parallel  to  the  X/Y  plane  due  to  X,  Y,  and  Z 
components  of  acceleration. 

f.  Algorithm 

compute  DX,  DY,  and  DZ 
if  (no  horizontal  motion)  then 
IERR  =  12 
return 

else 

save  old  values  of  V AVG  and  DIST  in  VAVGl  and  DISTL 
compute  DIST 

if  (VEL  >  VMAXl  and  bomb  not  released)  then  VEL  =  VMAXl 
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if  (VEL  >  MAX  2  and  bomb  released)  then  VEL  =  VMAX2 

compute  VAV6 

compute  DT  and  T 

compute  AXD,  AYD,  and  AZO 

if  (MNUM  =  2)  then 

compute  CA,  RA,  HOG,  XDOT,  YDOT,  and  ZDOT  for  milestone  1 

else 

compute  DELT 

compute  XDO,  YOD,  and  ZDO 
compute  HDAVG 

compute  TOX,  TOY,  TOZ,  and  UNIT 
if  (UNIT  <  0.01)  then 
IERR  =  12 
return 

else 

recompute  TOX,  TOY,  and  TOZ 

compute  XDOT,  YDOT,  ZDOT,  CA,  and  HDG  for  milestone 
MNUM-1 

compute  A11-A33 
compute  TMD,  ACLIFT,  and  RA 
end  if  [UNIT  <  0.01] 
end  if  [MNUM  =  2] 
end  if  [no  horizontal  motion] 
return 
end  VALSET 

3.  ERRCHK 


a.  Function:  This  subroutine  evaluates  the  flight  parameters 
to  ensure  that  they  meet  the  desired  simulation  limits. 

b.  Parameters  Required:  IERR--returns  the  error  code  for 
simulation  violations. 

c.  Common  Blocks:  PAR,  PARI,  PAR2,  PAR3,  PAR4,  TAR. 

d.  Called  By:  MAIN. 

e.  Local  Variables: 

(1)  OX,  OY— X  and  Y  distances  to  the  target,  later  used  as 
the  X  and  Y  components  of  the  current  leg. 

(2)  DIST— distance  to  the  target. 

(3)  POPAlT--altitude  of  the  pop-up  maneuver. 
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(4)  TMSAV— saves  the  value  of  TMAX  before  bombs  are  dropped. 


This  is  used  when  the  flight  path  is  reset  after  bombs  are  dropped. 

7  2  2 

(5)  RHO— density  of  air  in  lb  sec  /meters  feet  .  The 
mixture  of  units  is  necessary  since  the  coordinate  system  is  in  Metric 
units  and  wing  loading  is  in  English  units.  This  provides  the  proper 
units  for  computing  CL  and  DW. 

(6)  CL— lift  coefficient. 

(7)  DW— drag  divided  by  weight 

(8)  TW— thrust  divided  by  weight 

(9)  DT— time  spent  on  current  leg. 

(10)  TGTHDG— heading  from  the  aircraft  to  the  target  in 

degrees. 

(11)  ACHDG— direction  of  the  current  leg  in  degrees. 

(12)  HDGLMT— absolute  difference  between  ACHDG  and  TFTHDG. 

f.  Algorithm 

compute  DX,  DY,  and  OIST 
if  (MNUM  =  2  and  TMSAV  =  -1)  then 
POP ALT  =  0 
TMSAV  =  TMAX 
end  if 

if  ( MBR  3  0  and  TMAX  <>  TMSAV)  TMAX  =  TMSAV  [necessary  to 
reset  TMAX  when  the  flight  path  is  reset  following  a  successful 
bomb  release] 
call  ERRMK  (22) 

if  (bomb  not  released)  then  [MBR  =  0] 

if  (DIST  >  POPMIN  and  Z  >  APPMAX)  then 
IERR  =  4 
return 
end  if 
end  if 

if  (OIST  <  =  POPMIN  and  Z  >  POPALT)  then  POPALT  =  Z 
if  (Z  <  HTMIN)  then 
IERR  =  3 
return 

else  if  (Z  >  HTMAX)  then 
IERR  *  4 
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return 

else  if  (VEL  <  SPDMIN)  then 
IERR  =  5 
return 
end  if 

if  (MNUM  =  2)  then  Return 
if  (ACLIFT  >  GMAX)  then 
IERR  =  1 
return 
end  if 

compute  RHO,  CL 
if  (CL  >  CLMAX)  then 
IERR  =  17 
return 
end  if 

compute  DW  and  TW 
if  (TW  >  TMAX  or  TW  <  0)  then 
if  (TW  >  TMAX)  then  IERR  =  18 
Recompute  DW 

if  (TMD  +  DW  <  =  0)  then  IERR  =  1 
if  (IERR  <>  0)  then  Return 
end  if 

if  (bomb  not  dropped  this  milestone)  then  Return  [MNUM  OMBR] 

compute  0T,  DX,  DY,  TGTHDG,  ACHDG ,  and  HDGLMT 

if  (POP ALT  <  1,000)  then  IERR  =  6 

else  if  (Z  <  100)  then  IERR  =  7 

else  if  (Z  >  2,000)  then  IERR  =  8 

else  if  (DIST  >  2,000)  then  IERR  *  9 

else  if  (HDGLMT  >  5)  then  IERR  =  10 

else  if  (DT  <  2.33)  then  IERR  =  11 

else  TMAX  =  1.2*TMAX 

return 

end  ERRCHK 

4.  PTHPLT 


a.  Function:  This  subroutine  notifies  the  user  that  his  mile¬ 
stone  has  been  accepted  and  then  saves  the  successful  point  in  a  temporary 
disk  file. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  PAR,  PARI. 

d.  Called  by:  MAIN. 

e.  Local  Variables:  None. 
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Figure  9.  PTHPLT  Flow  Chart 


f.  Algorithm 

call  WIN  [define  map  window] 
move  to  previous  milestone 
draw  line  to  present  milestone 
label  milestone 

write  X,  v,  Z,  VEL,  and  a  0  to  scratch  file  TEMP  DATA 

return 

end  PTHPLT 


5.  SPOT 

a.  Function:  This  subroutine  obtains  an  X/Y  coordinate  pair 
and  two  commands  from  the  user. 

b.  Parameters  Required: 

(1)  X,  Y— X,  and  Y  values  obtained  from  the  user,  returned  to 
the  cal  1 ing  routine. 

(2)  Ll,  L2— two  commands  obtained  from  the  user,  returned  to 
the  calling  routine. 

c.  Common  Blocks:  None. 

d.  Called  By:  XYZIN. 

e.  Local  Variables:  A,  8— dummy  variables  needed  for  subroutine 

VCURSR. 

f.  Algorithm 

do  until  (command  <>  no)  [L2  <>  78] 
input  X,  Y,  and  Ll 
put  point  at  (X,  Y) 
input  L2  to  verify  location 
end  do 
return 
end  SPOT 

6.  SCENE 


a.  Function:  This  subroutine  draws  the  attack  scenario  map 
and  associated  displays.  During  reset  it  obtains  the  last  milestone  the 
user  wishes  to  retain. 
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b.  Parameters  Required: 


(1)  IRQ— signifies  the  reset  condition:  1  for  reset,  0  for 
initial  drawing. 

(2)  ICT — the  last  milestone  the  user  wishes  to  retain, 
returned  to  the  calling  routine. 


c. 

Common  Blocks:  ERR,  MN,  TAR, 

PAR. 

d. 

Called  8y :  MAIN. 

e. 

Local  Variables: 

(1)  MAP—control  s  whether  or 

not  the  road,  buildings,  and 

river  are  drawn. 

(2)  X,  Y--X  and  Y  coordinates  of  points  on  tne  mao. 

(3)  IT--  oop  counter . 

(4)  IW— scale  factor  for  labelling  the  axes  of  the  map. 

(5)  I  — index  for  MKERX. 
f.  Algorithm 

clear  screen 

write  village  option  prompt 
read  village  option  [MAP] 
if  (restart)  then  [IRQ  =  1] 
write  restart  prompt 
read  restart  point 
end  if  [restart] 
call  WIN  to  define  map 
if  (village  drawn)  then  [MAP  =1] 
rewind  disk  file  PICTUR  DATA 
read  TX,  TY 
do  until  (TX  <  -1) 
read  TX,  TY 
move  to  TX,  TY 
do  until  TX  <0  and  TY  >  -1) 
read  TX,  TY 

if  (TX  >  0)  then  draw  to  (TXM  TY) 
end  do  [TX  <  0  and  TX  >  -1] 
end  do  [TX  <  -1] 
end  if 

call  GUNLOC  to  mark  target 


i 


66 


label  map  axes 

if  (restart)  then  mark  last  altitude  and  velocity 
write  error  messages 
return 
end  SCENE 

7.  WI_N 

a.  Function:  This  subroutine  defines  a  window  on  the  screen 
and  sets  its  virtual  boundaries.  The  lower  left  corner  is  set  to  (0,0). 

b.  Parameters  Required: 

(1)  LX--minimum  screen  X  coordinate. 

(2)  MX--maximum  screen  X  coordinate. 

(3)  RX--maximum  virtual  X  coordinate. 

(4)  RY--maximum  virtual  Y  coordinate. 

(5)  JMP--controls  flashing  of  the  window  being  defined. 

c.  Common  Blocks:  MN. 

d.  Called  By:  PTHPLT,  GUNIOC,  SCENE,  XYZIN. 

e.  Local  Variables: 

(1)  ICT--determines  how  many  times  the  window  will  flash. 

(2)  I--loop  counter. 

f.  Algorithm 

define  window  screen  boundaries 
define  window  virtual  boundaries 
if  (flash  requested)  then 
compute  ICT 
do  I  =  1  to  ICT 
flash  window 
end  do 
end  if 
return 
end  WIN 

8.  XYZIN 

a.  Function:  This  subroutine  obtains  the  X,  Y,  Z,  velocity,  and 
command  for  the  milestone. 
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b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  LOC. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  None. 

f.  Algorithm 
call  BELL 

call  WIN  to  define  the  map 
call  SPOT  for  X,  Y,  LTR 
call  BELL 

call  WIN  to  define  the  altimeter 
call  SPOT  for  Z,  VI,  and  LTR2 

if  (LTR  is  lower  case)  then  convert  LTR  to  upper  case 
if  (LTR2  is  lower  case)  then  convert  LTR2  to  upper  case 
return 
end  XYZIN 

9.  GUNLOC 

a.  Function:  This  subroutine  marks  the  indicated  spot  with  a 
and  draws  a  circle  around  it. 

b.  Parameters  Required: 

(1)  GX,  GY— X  and  Y  coordinate  of  the  point  to  be  marked. 

(2)  RAD— radius  of  the  circle  marking  location. 

c.  Common  Blocks:  MN. 

d.  Called  By:  MAIN,  SCENE. 

e.  Local  Variables: 

(1)  ISTEP — size  of  the  step  in  the  loop  which  draws  the 
circle.  Small  circles  use  fewer  points,  therefore,  ISTEP  will  be  larger. 

(2)  Angle— angle  around  the  circle  at  which  a  point  will  be  drawn. 

(3)  DX,  DY— X  and  Y  coordinates  of  the  point  to  be  drawn. 

f.  Algorithm 

call  WIN  [define  map  window] 
draw  cross  at  site 
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compute  ISTEP 

draw  dotted  circle  around  site 

return 

end  GUNLOC 

10.  BEGIN 


a.  Function:  This  subroutine  initializes  the  graphics  and 
requests  the  user's  options. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  PAR,  OPT. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  KON— user  input:  0  indicates  the  user 
wishes  to  use  default  simulation  parameters,  any  other  value  causes  a 
call  to  CONCHG  to  allow  the  user  to  input  his  own  parameters. 

f.  Algorithm 

call  INIT  [initialize  graphics] 

clear  screen 

write  gun  option  prompt 

read  IGUN 

write  milestone  option  prompt 
read  IMP 

write  error  option  prompt 
read  KER 

write  terminal  option  prompt 
read  I8AUD 

write  parameter  input  prompt 
read  KON 

if  (KON  <>  0)  then  call  CONCHG 
set  IPLOT  =  1 

compute  map  and  altimeter  boundaries 

return 

end  BEGIN 

11.  GUNCHK 


a.  Function:  This  subroutine  checks  gun  locations  against 
emplacement  rules. 


b.  Parameters  Required: 

(1)  X,  Y--location  of  the  gun  site. 


BEGIN 


Figure  14,  BEGIN  Flow  Chart. 
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(2)  IERR-- error  code  set  to  13  if  emplacement  rules  are 

violated. 

c.  Common  Blocks:  TAR. 

d.  Called  8y:  MAIN. 

e.  Local  Variables:  01  ST -- distance  from  the  gun  site  to  the  target 

f.  Algorithm 
compute  DIST 

if  (DIST  <  3,000)  then  IERR  =  13 

return 

end  GUNCHK 

12.  PRESET 

a.  Function:  This  subroutine  writes  the  P001  and  MICE  II  files 
for  the  user. 

b.  Parameters  Required:  PAR,  PARI,  PAR2,  OPT. 

c.  Common  Blocks:  None. 

d.  Called  By:  None. 

e.  Local  Variables: 

(1)  RCSTAB— radar  cross-section  table. 

(2)  VATlN2--vulnerabil ity  table  against  type  1  and  2  weapons. 

(3)  VAT3--vulnerabi 1 ity  table  against  type  3  weapons. 

(4)  VAT5--vulnerabil ity  table  against  type  5  weapons. 

(5)  TINC— total  flight  time,  T(MNUM) ,  divided  by  1,000 
with  0.0008  added  to  eliminate  round-off  errors  due  to  POOl's  method  of 
time  calculation. 

(6)  TINKI— temporary  time  marker. 

(7)  TINK— array  with  nine  elements,  the  Ith  element  has  a 
value  I*T(MNUM)/10. 

(8)  FTFAC— conversion  factor  from  meters  to  feet,  set  to  3.28084 


(9)  XFSAM,  YFSAM,  ZFSAM— X,  Y,  and  Z  coordinates,  in  feet,  of 
the  missile  site. 

f .  A1 gor i thm 

compute  TINC  AND  TINK 

if  (P001  file  requested)  then  write  P001  DATA  file  [IPNCH  =  1  or  3] 
if  (MICE  file  requested)  then  [IPNCH  =  2  or  3] 
print  MICE  DATA  file  header 
convert  X,  Y,  Z,  and  VEL  from  meters  to  feet 
print  remaining  data  to  MICE  DATA 
end  if 
return 
end  PRESET 

13.  ELFIN 

a.  Function:  This  subroutine  requests  the  user's  output  options  and 
closes  the  graphic  routines. 

b.  Parameters  Required:  LAST— this  is  both  a  command  parameter 
to  ELFIN  and  a  returned  value  to  MAIN.  Sent  as  a  command,  it  has  the 
following  meaning: 

(1)  0— no  further  action  is  required. 

(2)  l--ask  the  operator  whether  or  not  he  is  finished  with 
the  flight  path  or  wishes  to  continue  at  a  later  time. 

If  LAST  was  sent  as  0,  it  is  returned  as  an  83.  If  a  1  was  sent,  it 
returns  as  follows: 

(1)  1— user  wishes  to  continue  the  flight  path  at  a  later 

time 

(2)  83--user  is  finished  with  the  flight  path. 

c.  Common  Blocks:  MN,  OPT. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  ICT—  loop  counter  that  determines  how 
often  the  prompt  line  will  be  flashed. 
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f.  Algorithm 


write  ending  prompt 
compute  ICT 
do  I  =  1  to  ICT 
call  BELL 
underline  prompt 
end  do 

call  SCURSR  [wait  for  user  to  finish  viewing  screen] 
clear  screen 

call  FIN  [closes  graphics  routines] 
if  (LAST  <>  0) 

do  until  (ABS  (LAST)  <  2) 

write  flight  path  completion  option  prompt 
read  LAST 
end  do 

compute  LAST 
end  if 

write  output  file  option  prompt 
read  IPNCH 

if  (LAST  =  0)  LAST  =83 

if  (no  output  requested)  then  return  [IPNCH  =  0] 
if  (P001  file  requested)  then  [IPNCH  =  1  or  3] 
write  extended  output  option  prompt 
read  IEXT 
end  if 

if  (MICE  file  requested)  then  [IPNCH  =  2  or  3] 
do  until  (ISAM  >  =  1  and  ISAM  <  =  7) 
write  missile  option  prompt 
read  ISAM 
end  do 
end  if 
return 
end  ELFIN 

14.  AIMPT 

a.  Function:  This  subroutine  marks  a  line  from  the  aircraft's 
current  position  to  the  target  to  help  align  the  bomb  release  leg. 

b.  Parameters  Required:  I— number  of  the  current  milestone. 

c.  Common  Blocks:  PAR,  TAR. 

d.  Called  By:  MAIN. 


e.  Local  Variables:  None. 


"1 
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f.  Algorithm 

move  to  (X( I) ,  Y(  I ) ) 
draw  dashed  lined  to  target 
return 
end  AIMPT 

15.  CONCHG 


a.  Function:  This  subroutine  allows  the  operator  to  change  the 
simulation  parameters. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  PAR3,  PAR4,  TAR. 

d.  Called  By:  BEGIN. 

e.  Local  Variables:  K— counter  to  indicate  which  parameter  the 
user  wants  to  change. 

f.  Algorithm 
clear  screen 

do  until  (input  completed)  [K  =  1] 
do  until  (K  >  =  1  and  K  <  =  17) 
write  prompt 
read  K 
end  do 

if  (K  >  1  and  K  <  16)  then 

write  prompt  for  parameter  to  be  changed 
read  new  value  of  the  parameter 
else  if  (K  =  16) 

read  parameter  values  form  disk  file  PAR  SAV 
else  if  (K  =  17) 

list  parameter  values  to  the  terminal 
end  if  [K  >  1  and  K  <  16] 
end  do  [input  completed  (K  =  1)] 
write  parameter  values  to  disk  file  PAR  SAV 
return 
end  CONCHG 

16.  ERRMK 


a.  Function:  This  subroutine  sends  prompts  and  error  messages  to 


the  user. 
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Figure  19.  CONCHG  Flow  Chart 


b.  Parameters  Required:  IERR— this  indicates  which  message  is 


to  be  sent  to  the  operator. 

c.  Common  Slocks:  ERR,  MN. 

d.  Called  By:  MAIN,  VALSET,  ERRCHK,  SAMCHK. 

e.  Local  Variables: 

(1)  J--column  index. 

(2)  MKX ,  MKY— working  variables  to  help  define  the  message 

line. 

(3)  K--counter  which  defines  how  many  times  the  prompt  line 
is  displayed. 

f.  Algorithm 

if  (IERR  >  20)  then 
compute  MKX  and  MKY 
do  I  =  1  to  6 

draw  line  from  (MKX,  MKY)  to  MKX  +  30,  MKY) 
end  do 

else 

J  =  2 

if  (IERR  <  =  6)  then  0=1 
else  if  (IERR  >  12)  then  J  =  3 
compute  K  and  MKY 
do  I  =  1  to  K 

draw  line  from  (MKERX(J),  MKERY(IERR)  to  (MKX,  MKERY ( IERR) ) 
if  (IERR  <  10)  call  BELL 
end  do 
end  if 
return 
end  ERRNK 

17.  SAMCHK 

a.  Function:  This  subroutine  checks  the  missile  location 

for  emplacement  rule  violations.  A  violation  causes  a  call  to  ERRMK  with 
an  error  code  of  19. 

b.  Parameters  Required: 

(1)  X--X  coordinate  of  the  missile  site. 


(2)  IERR-- error  code,  set  to  0  if  no  violation  occurs  and  set 
to  1  if  it  does. 

c.  Common  Blocks:  None. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  None. 

f.  Algorithm 
IERR  = 

if  (X  <  6,000)  then  call  ERRMK  (19) 

IERR  =  1 
end  if 
return 
end  SAMCHK 
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VII.  MODIFICATION  INSTRUCTIONS 


A.  GENERAL 

As  stated  in  the  introduction,  one  goal  of  this  effort  was  to  develop 
a  program  that  would  be  transportable  to  other  systems.  This  section 
will  discuss  the  general  requirements  to  achieve  this  conversion  and 
then  describe  how  it  can  be  implemented  in  the  two  versions  that  currently 
exist  at  the  Naval  Postgraduate  School. 

The  first  change  that  must  be  made  is  the  conversion  to  the  user's 
graphics  system.  The  program  requires  the  following  capabilities: 

1.  Screen  and  Virtual  Window  Definition 

TWINDO  defines  a  window  in  screen  coordinates  while  DWINDO 
defines  the  virtual  coordinates  the  current  screen  window  will  assume. 
NEWPAG  clears  the  screen,  but  does  not  change  the  window  definitions. 

2.  Move  and  Draw 

A  "move"  positions  the  electron  beam  at  a  point  on  the  screen, 
but  does  not  draw  anything.  A  "draw"  creates  a  straight  line  on  the 
screen  from  the  current  beam  position  to  the  position  identified  in  the 
parameter  list.  M0VA8S  and  DRWABS  are  absolute  screen  coordinate  move 
and  draw  commands.  MOVEA  and  DRAWA  are  the  virtual  coordinate  commands 
to  accomplish  these  functions,  MOVREl  is  a  virtual  move  relative  to  the 
current  beam  position  and  DASHA  is  a  virtual  draw  that  creates  a  dashed 
line. 
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Printing  to  the  screen  creates  alphanumeric  characters  on  the 
screen,  as  opposed  to  connected  lines.  ANMODE  enables  the  printing 
capabi 1 ity. 


Cursor  Input 


Cursor  input  allows  the  user  to  enter  a  command  value  and  the 


X  and  Y  coordinates  of  a  point  on  the  screen.  VCURSR  accepts  data  in 


virtual  coordinates  while  SCURSR  works  in  screen  coordinates. 


The  user's  functions  for  these  four  actions  must  be  substituted 


for  the  PLOT-10  functions  according  to  Table  1. 

The  next  change  that  must  be  made  is  to  implement  the  user's  air¬ 
craft  performance  constraints.  The  module  VALSET  contains  the  equations 
for  computing  the  necessary  performance  values  and  has  the  ability  to 
indicate  boundary  errors  via  the  parameter  IERR.  The  constraints  on  the 
system  are  contained  in  module  ERRCHK,  and  performance  violations  are 


passed  with  the  parameter  IERR.  The  various  values  assigned  to  IERR  are 
used  by  ERRMK  to  communicate  with  the  user  whenever  the  graphics  routines 
are  being  used.  Therefore,  not  only  the  error  messages,  but  also  user 


prompts  must  be  supported  by  this  module.  There  is  one  other  constraint 
on  the  value  assigned  to  IERR.  When  assigned  a  value  of  12,  the  user's 
option  to  ignore  errors  is  overridden.  This  allows  the  programmer  to 
guard  against  situations  the  program  is  unable  to  handle,  such  as  division 
by  zero. 

The  final  change  is  in  the  format  of  the  output  files.  Because  the 
program  was  written  to  support  a  particular  Naval  Postgraduate  School 
course,  a  fixed  number  and  type  of  weapons  is  expected.  The  module  MAIN 


MODULE  GRAPHICS  REQUIREMENTS 


accepts  the  input  of  the  first  six  guns  and  one  SAM  site  and  assigns  a 
seventh  gun  location.  The  module  PRESET  assigns  the.  gu;  the  following 
description: 


GUN  TYPE  MODE 

1-2  1  1 

3-4  2  1 

5  3  4 

6  3  3 

7  5  3 

To  change  this  assignment,  the  module  MAIN  must  be  modified  to  accept  and 
display  the  additional  information  and  PRESET  must  be  rewritten  to 
recognize  varying  numbers  and  types  of  weapon  sites. 

B.  THE  KEYBOARD  VERSION  (KBPIP) 

The  keyboard  version  was  written  to  operate  on  any  keyboard  terminal. 
To  a  large  extent,  this  was  simply  a  matter  of  removing  the  graphics 
functions  from  GRPIP.  Modules  that  had  only  graphics  functions  were  not 
eliminated,  but  were  converted  into  stubs.  The  remainder  of  this  section 
will  describe  the  changes  to  the  modules  in  KBPIP  that  are  necessary  for 
conversion. 

1.  MAIN 

This  module  had  to  notify  module  XYZIN  whether  it  was  expecting 
weapon  or  milestone  information.  A  parameter  was  added  to  XYZIN,  with  an 
0  indicating  weapon  input  and  a  1  for  milestone  data. 

2.  ERRMK 

This  module  contains  messages  that  were  previously  written  on 
the  screen  by  SCENE.  It  uses  FORTRAN  WRITE  statements  to  notify  the 


►  . 


user,  rather  than  highlighting  a  previously  written  message.  In  addition, 
the  input  data  is  echo  printed  to  assist  the  user,  since  this  function 
was  automatic  in  the  graphic  version. 

3.  pthplt 

This  module  now  writes  a  message  indicating  that  the  milestone 
has  been  accepted  as  valid. 

4.  GUNLOC,  WIN 

These  modules  are  now  simply  stubs. 

5.  SPOT 

This  module  now  uses  REAO  and  WRITE  rather  than  cursor  inputs. 

This  means  that  it  must  be  able  to  identify  what  type  of  data  is  expected 
in  order  to  write  the  appropriate  prompts.  The  parameter  LI  is  sent  with 
a  value  of  0  to  indicate  that  X  and  Y  are  to  be  read,  and  a  value  of  1 
indicates  that  the  value  of  L 2  must  be  checked.  If  12  is  0,  the  calling 
routine  expects  only  an  altitude.  If  it  is  1,  the  calling  routine 
expects  an  altitude,  velocity,  and  command.  The  module  must  then  convert 
the  command  from  the  user's  format  to  that  used  by  MAIN. 

6.  SCENE 

The  entire  map  drawing  function  has  been  eliminated.  When  called 
during  reset,  the  module  prints  the  data  for  the  last  milestone  retained 
by  the  user,  to  assist  in  the  selection  of  the  values  for  subsequent  points. 

7.  XYZIN 

The  module  is  sent  the  parameter  IV.  It  uses  the  value  of  this 
parameter  to  determine  whether  the  calling  routine  needs  only  X,  Y,  and  Z 
coordinates,  or  X,  Y,  Z  coordinates,  velocity  data,  and  a  command.  It 
passes  this  information  to  SPOT  via  parameters  LTR,  LTR2,  and  LDM. 
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8. 


BEGIN 


The  initialization  of  graphics  routines  has  been  eliminated. 

9.  AIMPT 

This  module  now  gives  the  distance  to  the  target  and  how  much 
the  current  X  and  Y  values  must  be  changed  to  align  the  flight  path 
correctly. 

10.  ELFIN 

The  release  of  the  graphics  resources  has  been  eliminated. 

11.  CONCHG 

The  screen  clearing  command  is  no  longer  required. 

C.  THE  IBM  GRAPHICS  VERSION  (IBMPIP) 

The  IBM  graphics  version,  with  its  dual  screens,  was  to  a  certain 
extent  a  merger  of  the  PLQT-10  and  keyboard  versions.  The  necessary 
changes  are  described  below. 

1.  PTHPLT,  GUNLOC,  SCENE,  WIN,  ELFIN,  AIMPT,  SPOT 

IBM  functions  are  substituted  for  equivalent  PLOT-10  functions. 

2.  BEGIN 

New  screen  coordinates  are  used.  In  addition,  the  graphics 
initialization  and  screen  erasing  functions  are  moved  from  the  beginning 
to  the  end  of  the  module. 

3.  CONCHG 

The  screen  clearing  function  is  eliminated. 

4.  ERRMK 

The  module  flashes  a  small  window  on  the  graphics  screen  to 
indicate  a  message  is  on  the  alphanumeric  screen.  It  uses  the 
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alphanumeric  screen  to  write  the  message.  In  addition  to  the  message, 
the  data  input  on  the  most  recent  attempt  is  printed  if  an  error  occurs. 
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VIII.  MAP  GENERATION 


To  support  the  graphics  capability  of  the  program,  it  was  necessary 
to  provide  a  map  of  the  attack  area  to  the  user.  To  do  this,  it  was 
necessary  to  select  points  on  the  actual  map  and  copy  them  to  a  data  file  for 
later  use.  This  can  be  done  manually  with  rulers  and  pencil,  which  is 
subject  to  all  the  problems  involved  in  properly  marking  and  transferring 
the  data.  An  alternative  was  to  utilize  the  graphics  capability  of  the 
system  to  generate  the  map  information.  To  accomplish  this,  a  program 
called  SCENE  was  written. 

The  prerequisite  to  utilizing  SCENE  is  a  transparency  of  the  desired 
map.  SCENE  expects  a  6  x  4  inch  transparency  representing  an  18,000  x 
12,000  unit  field.  This  can  be  changed  by  changing  the  values  of  MINX, 

MAXX ,  MINY  and  MAXY  and  the  values  in  the  DWINDO  call. 

The  program  starts  by  asking  the  user  whether  he  wants  to  create  a 
new  map  or  continue  an  old  one.  A  positive  integer  means  a  new  map,  zero 
or  a  negative  numbe  v.dicates  an  old  map.  If  selected,  the  old  map  is 
then  drawn.  The  user  then  places  the  transparency  over  the  map  outline 
drawn  on  the  screen.  Points  are  input  in  the  following  manner.  First, 
the  cursor  is  positioned  under  the  selected  point.  A  key  is  pressed  to 
mark  the  spot.  The  capital  "M"  and  "S"  keys  have  a  particular  meaning. 

The  "M"  key  informs  the  program  that  the  following  call  will  be  a  move, 
not  a  draw.  The  "S"  key  marks  the  final  spot  and  informs  the  program  to 
stop  execution.  All  other  keys  indicate  that  the  next  call  is  a  draw 


command. 


The  data  is  written  to  a  FORTRAN  data  set  9  using  2F10.2  format.  The 
data  has  the  following  meanings: 

1.  Two  positive  values--these  represent  a  data  point  on  the  map. 

2.  -0.5,  0.0 — this  is  a  mark  to  indicate  that  a  move  to  the  coordinates 
in  the  next  entry  is  to  occur. 

3.  -2.0,  0.0 — this  is  the  end  of  file  marker.  If  the  user  is  con¬ 
tinuing  work  on  a  map,  it  will  be  necessary  to  erase  the  original 
marker  after  he  finishes  the  current  session.  This  is  done  by 
editing  the  data  file  and  removing  the  first  end  of  file  marker. 

In  addition  to  the  cursor  input,  data  points  can  be  entered  by 
editing  the  file.  This  allows  the  user  to  smooth  curves  by  adding 
intermediate  points  and  to  make  corners  connect  exactly.  One  example  of 
these  capabilities  is  the  drawing  of  the  buildings.  Rather  than  trying 
to  exactly  line  up  the  corners,  only  the  diagonal  defining  the  rectangle 
was  drawn  with  the  cursor.  The  data  file  was  then  edited  to  fill  in  the 
missing  corners.  This  ensured  that  the  corners  were  perpendicular  and 
met  at  the  line  end  points. 
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IX.  PROBLEMS  AND  IMPROVEMENTS 


Two  major  problem  areas  were  encountered  in  terms  of  software  develop 
ment.  The  first  involved  the  utilization  of  graphics  resource  drivers 
and  the  second  was  version  control.  A  major  problem  with  the  PLOT-10 
graphics  package  is  that  there  are  errors  in  the  Naval  Postgraduate 
School's  implementation  of  several  of  the  translation  tables.  As  a 
result,  the  system  will  occasionally  become  highly  erratic;  drawing 
random  lines  over  the  entire  screen,  or  reading  incorrect  values  from  the 
cursor.  This  erratic  behavior  was  the  original  reason  the  verification 
input  was  included  in  the  graphics  sequence.  This  problem  remains 
uncorrected. 

The  major  difficulty  with  the  IBM  graphics  package  was  the  lack  of 
familiarity  with  the  package  on  the  part  of  computer  center  personnel. 

The  package  was  installed  in  April  1982,  and  the  only  documentation 
available  was  the  IBM  technical  manual.  Implementing  IBMPIP  was, 
therefore,  limited  to  using  those  functions  which  could  be  easily  iden¬ 
tified,  primarily  the  bridge  functions.  Therefore,  it  was  not  possible 
to  utilize  the  extensive  capabilities  of  the  package.  As  more  experiment 
tion  with  the  package  is  afforded,  the  capabilities  of  this  package 
should  be  enhanced.  In  addition,  there  are  plans  to  obtain  a  core 
graphics  system  which  will  support  TEKTRONIX,  IBM,  and  VERSATEC  plotting 
routines  in  a  dev  ice- independent  manner.  This  means  that  the  user  will 
be  able  to  use  high-level  graphic  functions.  These  will  execute  equally 
well  on  all  three  systems  and  the  device-specific  calls  will  be  generated 
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by  the  high-level  functions  at  execution  time.  If  the  programmer  wishes 
to  use  the  unique  capabilities  of  a  particular  device,  such  as  cursor 
redefinition  in  the  IBM  package,  he  will  still  have  to  use  the  functions 
specifically  dedicated  to  that  device. 

Since  the  core  system  was  not  available,  the  two  graphics  systems 
required  separate  software  versions  to  execute  on  their  respective  hard¬ 
ware.  The  non-graphics  keyboard  implementation  required  a  third  version. 
This  caused  a  significant  management  problem.  What  was  a  simple  change 
on  one  system  was  frequently  difficult  on  another.  For  instance, 
correction  of  errors  when  milestones  were  read  from  the  disk  was  quite 
simple  to  accomplish  with  the  keyboard  version.  The  prompt  was  displayed, 
the  response  was  accepted,  and  the  appropriate  action  was  carried  out. 

Once  this  was  tested,  the  source  statements  were  copied  into  IBMPIP  and 
checked  out.  This,  too,  went  well.  However,  the  change  to  GRP  IP  was 
extremely  difficult.  First,  the  message  had  to  be  added  to  the  message 
list  in  SCENE,  as  opposed  to  ERRMK  in  the  other  two  versions.  ERRMK  had 
to  be  changed  to  accommodate  a  new  error  location.  Finally,  the  location 
of  the  various  error  messages  had  to  be  rearranged  four  times  before  one 
was  found  that  did  not  result  in  the  new  message  overwriting  another 
message.  Similar  problems  occurred  when  converting  graphic  to  non-graphic 
techniques.  Although  the  functions  are  identical  in  each  version,  most 
changes  in  the  program  resulted  in  three  similar,  but  unique,  changes  in 
the  implementation.  When  the  time  required  to  recompile  and  test  these 
versions  is  considered,  a  sample  change  for  cosmetic  effects  rapidly 
loses  its  desirability. 
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Although  not  as  difficult  an  obstacle  as  the  software,  the  hardware 
did  pose  a  problem.  The  capabilities  of  a  storage  tube  device  severely 
limited  the  alphanumeric  interaction  with  the  user.  The  first  problem 
arose  with  GRPIP,  which  was  how  to  write  messages  to  the  user  without 
destroying  the  graphic  display  or  overwriting  a  previous  message.  The 
solution  was  to  write  all  possible  messages  beforehand  and  then  identify 
their  location  on  the  screen  for  later  use.  This  in  turn  meant  a  trade¬ 
off  between  a  display  large  enough  to  be  useful  while  retaining  sufficient 
working  space  for  writing  the  messages.  With  the  availability  of  the  IBM 
package,  this  problem  was  significantly  reduced.  With  the  second  screen, 
alphanumeric  interaction  was  relatively  simple.  The  problem  then  became 
one  of  how  to  notify  the  user  to  change  input  screens.  This  was  solved 
by  adding  an  attention  window,  which  flashed  to  inform  the  user  that 
something  was  occurring  on  the  other  screen. 

There  are  several  improvements  that  can  be  made  to  increase  the 
program's  utility.  A  major  improvement  would  be  to  use  the  data  input  by 
the  user  to  derive  several  intermediate  milestones.  A  quick  way  to  do 
this  would  be  to  use  the  averages  already  computed  to  create  additional 
milestones.  A  better  way  would  use  the  operator's  input  and  computed 
averages  to  fit  a  curve  to  the  points  if  desired  by  the  user.  Additional 
milestones  would  then  be  created  by  selecting  intermediate  points  on  the 
curve.  In  addition  to  smoothing  the  flight  path,  realism  could  be 
enhanced  by  providing  for  terrain  masking.  P001  provides  for  gun  masking 
arcs  and  if  the  terrain  was  identified  as  geometric  shapes,  chopped  conic 
mountains  and  a  polynomial  river  for  example,  these  arcs  could  be  computed. 
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In  addition  to  increased  realism,  the  program  could  be  improved 
by  adding  flexibility  to  the  weapon  and  aircraft  descriptions.  The 
present  program  utilizes  a  fixed  number  of  weapons  firing  at  a  particular 
type  of  aircraft.  This  was  necessary  to  limit  the  action  required  by  the 
students  using  the  program.  Making  the  number  and  type  of  weapons 
variable  would  require  a  relatively  modest  effort,  but  would  greatly 
expand  the  software's  flexibility.  In  addition,  it  would  improve  the 
realism  of  the  scenario.  P001  only  supports  one  firing  arc  per  gun.  By 
making  the  number  of  guns  variable,  a  single  gun  site  which  has  several 
distinct  firing  arcs  could  be  identified  as  several  guns  at  one  location, 
each  with  different  firing  arcs.  The  aircraft  type  can  be  changed  by 
changing  the  vulnerability  and  radar  cross-section  data  statements. 
Providing  access  to  external  files  to  obtain  this  information  would  also 
expand  the  flexibility  of  the  program. 
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AIRCRAFT  COMBAT  SURVIVABILITY 


A  STUDY 
of 

AIRCRAFT  ATTRITION 
in  a 

HOSTILE  AAA  AND  SAM  ENVIRONMENT 


NAVAL  POSTGRADUATE  SCHOOL 
MONTEREY,  CALIFORNIA 


SPRING  QTR,  1982 


I.  INTRODUCTION 


This  aircraft  attrition  study  is  designed  to  present  the  student  with 
an  opportunity  to  see  first-hand  how  the  survivability  of  an  aircraft  can 
be  evaluated  in  a  given  combat  scenario.  The  methods  employed  in  this 
study  are  those  used  by  both  industry  and  government  when  making  decisions 
in  the  survivability  analysis  and  design  of  an  aircraft  weapon  system. 

In  this  study,  one  computer  program  named  P001  (the  AFATL  Antiaricraft 
Artillery  Simulation  Computer  Program)  will  be  used  to  simulate  the 
flight  of  a  typical  Naval  attack  aircraft  through  a  hostile  antiaircraft 
artillery  (AAA)  environment  and  to  compute  the  aircraft  probability  of 
survival.  Another  computer  program,  MICE  II  (the  Missile  intercept 
Capabil ity  Evaluation  Program),  will  be  used  to  compute  the  survivability 
wf  the  aircraft  on  the  same  flight  path  against  a  typical  short-  to 
medium-range  surface-to-air  missile  (SAM).* 


*The  DoO  specifies  the  use  of  P001  and  MICE  in  all  nonnuclear 
survivability  assessments  in  MIl-STD-2069,  REQUIREMENTS  FOR  AIRCRAFT 
NONNUCLEAR  SURVIVABILITY  PROGRAM,  24  August  1981. 
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II.  PROBLEM  DEFINITION 


A.  You  are  going  to  conduct  a  survivability  assessment  of  a  familiar 
Naval  aircraft,  shown  in  Figs.  1  and  2,  on  a  typical  attack  mission 
to  destroy  the  bridge  shown  in  Fig.  3. 

8.  The  class  will  be  divided  into  groups  of  four,  with  two  members  in 
each  group  on  the  blue  team  and  two  members  on  the  red  team. 

C.  Each  team  will  use  P001  and  MICE  II  to  determine  the  survivabil ity 
of  the  aircraft  in  the  class  problem  scenario,  as  follows: 

1.  Each  team  will  select  a  flight  path  to  the  bridge  according  to 
the  rules  of  the  scenario  given  in  Section  IV.  Keep  this  path  a 
secret. 

2.  Each  team  will  also  select  the  locations  of  six  AAA  emplacements 
*nd  one  SAM  that  will  defend  the  bridge  against  an  air  attack. 
Locate  the  weapons  according  to  the  order  of  battle  given  in 
Section  IV.  Keep  these  locations  secret,  also. 

3.  Each  team  will  conduct  an  attack  against  the  other  team  in  the 
group. 

4.  The  input  data  file  for  the  computer  runs  for  the  blue  team 
attacking  the  bridge  defended  by  the  red  team  will  consist  of  the 
flight  path  of  the  blue  aircraft  flying  through  the  AAA  and  SAM 
emplacements  selected  by  the  red  team. 

5.  Conversely,  the  input  data  file  for  the  computer  runs  by  the 

red  team  against  the  blue  team  will  consist  of  the  flight  path  of 
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the  red  aircraft  flying  through  the  AAA  and  SAM  emplacements 
selected  py  the  blue  team. 

May  the  best  team  win.  A  small  prize  will  be  awarded  to  the  team 
whose  aircraft  has  the  highest  probability  of  survival  against  their 
opponent's  weapon  distribution. 


III.  SCENARIO  DESCRIPTION 


A.  This  scenario  is  purely  for  instructional  purposes  and  is  not  based 
on  any  actual  or  planned  combat  attack  situation.  The  target  site, 
order  of  battle,  and  flight  path  and  weapon  delivery  parameter  limits 
have  been  chosen  only  to  provide  guidelines  for  the  class  problem.  As 
much  realism  has  been  introduced  for  the  players  as  possible  while 
retaining  an  unclassified  scenario. 

B.  Your  target  is  the  bridge  shown  in  Fig.  3  located  at: 

X:  14,000  meters 

Y:  7,220  meters 

Z:  20  meters 

Heavy  military  supply  traffic  has  been  reported  in  this  area. 

Your  mission  is  to  destroy  this  vital  supply  link. 

C.  The  following  order  of  battle  has  been  gathered  from  intelligence 
reports  of  the  target  area: 

SAM  -  one  site  in  the  vicinity  of  the  target 

AAA  -  two  type  1  mode  1 

two  type  2  mode  1 

one  type  3  mode  4 

one  type  3  mode  3 

one  type  5  mode  3 

(NOTE:  Gun  types  and  their  relationship  to  AAA  and  the  SAM  type 
will  be  discussed  in  class.) 


■ 
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0.  The  SAM  threat  requires  that  the  inbound  approach  to  the  target  be 
made  from  the  west  at  low  level.  A  pop-up  maneuver  is  required  to 
visually  identify  the  target  followed  by  a  dive  bombing  run  to  weapon 
delivery.  The  aircraft  ordnance  consis.s  of  MK82  500-pound  Snakeye 
bombs.  Egress  must  be  made  to  either  the  north  or  south,  depending 
on  individual  strategy. 

E.  The  following  is  a  list  of  scenario  limitations  to  be  used  in  the 
development  of  your  strategy: 

1.  Aircraft  cruise  speed--90  to  220  meters  per  second  (400  to  500 
knots) . 

2.  Inbound  altitude— 70  to  450  meters. 

3.  Maneuvering— the  aircraft  is  limited  by  its  thrust,  speed  brakes, 
and  loading.  A  maximum  speed  of  approximately  225  meters/sec  is 
attainable  before  bomb  release,  and  it  increases  to  about  235 
after  weapon  release.  The  thrust  available  and  speed  brakes 
limit  the  amount  of  velocity  can  be  changed.  Combined  with  the 
loading,  they  serve  to  limit  the  amount  of  turn  allowed.  In 
both  cases,  the  longer  the  leg,  the  more  change  can  be  accepted. 

4.  Pop-up  maneuver 

a.  Commence  maneuver— a  maximum  of  6,000  meters  from  the  target. 

b.  Maneuver  altitude— in  order  to  locate  the  target,  you  must 
pop-up  to  a  minimum  altitude  of  1,000  meters. 

5.  Ordinance  delivery 

a.  A  boresighted  glide/dive  delivery  is  required. 

b.  A1 ignment— the  leg  immediately  prior  to  the  bomb  release 
point  must  be  straight,  last  2.33  seconds,  and  must  have 
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a  heading  within  5*  of  the  heading  to  the  target  from  the 
bomb  release  point. 

c.  Bomb  release  range--between  100  and  1,000  meters  from  the 
target. 

d.  Bomb  release  altitude— between  100  and  2,000  meters. 

6.  Weapons  placement 

a.  Two  type  1  mode  1,  two  type  2  mode  1,  one  type  3  mode  4, 
and  one  type  3  mode  3  weapons  are  available  for  defense 
placement.  Neither  of  the  type  3  weapons  may  be  placed 
within  3,000  meters  of  the  center  of  the  bridge.  A  type  5 
mode  3  weapon  is  fixed  at  (X,  Y,  Z). 

b.  One  type  5  SAM  system  is  to  be  placed  anywhere  on  the  roads 
eastward  of  the  six  kilometer  X  axis  position. 

F.  Begin  the  flight  path  at  an  entry  point  of  your  choosing  along 
the  western  boundary  and  end  it  along  the  northern  or  southern 
boundary.  Anticipate  the  AAA  and  SAM  placement  for  bridge  defense 
and  plan  you  flight  path  accordingly. 

G.  Locate  the  AAA  and  SAM  weapons  given  in  the  order  of  battle  to  best 
defend  the  bridge  against  your  opponent's  attacking  aircraft. 
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IV.  INPUT  DATA  FORMAT 


Three  preprocessor  programs  for  P001  and  MICE  II  are  available 
at  the  Naval  Postgraduate  School.  These  programs  create  the  scenario, 
flight  path,  aircraft  vulnerability,  and  weapon  location  and  character¬ 
istics  data  files  necessary  for  the  execution  of  P001  and  MICE  II.  The 
preprocessing  programs  are  GRPIP  (Graphic  POOl/MICE  II  Input  Program), 

KBPIP  (Keyboard  POOl/MICE  II  Input  Program)  and  IBMPIP  (IBM  POOl/MICE  II 
Input  Program).  GRPIP  is  for  use  on  the  TEKTRONIX  4010  family  of  terminals, 
KBPIP  can  be  used  at  any  keyboard,  and  IBMPIP  runs  on  IBM  3277  graphics 
terminals.  All  of  these  programs  operate  in  the  same  fashion,  only  the 
manner  of  data  entry  is  different. 

A.  PROCEDURE  FOR  EXECUTING  P001  AND  MICE  II 

1.  Log  on  to  VMS 

2.  ENTER:  CP  LINK  191  192  R 

the  message  "ENTER  READ  PASSWORD:"  will  appear 

ENTER: 

ENTER:  ACC  192  B 

a.  If  you  have  never  used  GRPIP  or  IBMPIP,  the  following  file 
contains  the  points  for  drwing  the  scenario  map. 

ENTER:  COPYFILE  MAP  DATA  8  =  =  A 

3.  a.  To  use  GRPIP,  ENTER:  GRPIP 

b.  To  use  KBPIP,  ENTER:  KBPIP 

c.  To  use  IBMPIP,  ENTER:  IBMPIP 

d.  Execute  the  selected  preprocessor  program  (see  the  following 
sections 

4.  To  execute  P001 

a.  XEDIT  file  P001  DATA  and  insert  your  JOB  card  as  the  first 
line  (see  computer  center  manual  MVS-01  pq.  18) 

b.  Then  FILE  P001  DATA 

c.  ENTER:  SUBMIT  P001  DATA 

5.  To  Execute  MICE  II 

a.  XEDIT  MICE  II  DATA  and  insert  your  JOB  card  as  the  first  line, 
line 

b.  Then  FILE  MICE  DATA 

c.  ENTER:  SUBMIT  MICE  DATA 
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B.  EXECUTING  GRPIP  (TEKTRONIX  Terminals  Only) 


NOTE:  The  TEKTRONIX  terminal  at  the  computer  center  does  not 
react  to  the  “RETURN"  button.  Push  "CTRL"  and  "S"  simultaneously  for  a 
carriage  return. 

NOTE:  For  the  terminal  at  the  computer  center,  the  cursor  will 
disappear,  but  the  entry  will  not  be  accepted  when  the  key  is  pressed. 

On  this  terminal,  press  "CTRL"  "S"  after  pressing  a  key  to  enter  the 
data. 

1.  Enter:  GRPIP 

The  following  message  will  appear: 

NOTICE  YOU  ARE  LINKED  TO  491  AS  D  FOR  TEKTRONIC  ROUTINES 

This  is  followed  by  a  delay  as  the  program  loads.  When  loading 
is  complete,  the  message  "EXECUTION  BEGINS"  will  appear,  followed  by  the 
screen  flashing  twice. 

2.  Initial ization 

The  program  will  request  data  necessary  to  initialize  the  system. 
The  following  message  will  appear: 

GUNS:  0  =  DISK  FILE;  1  =  TERMINAL  READ;  2  =  PRESET 

a.  FILE:  This  reads  the  file  created  on  a  previous  run  using 
option  1.  Do  not  select  this  option  if  you  have  never  entered  gun  and 
missile  locations  at  the  terminal. 

b.  TERMINAL:  With  this  option  you  enter  your  own  locations. 

The  gun  and  missile  locations  will  be  saved  for  later  use. 

c.  PRESET:  GRPIP  has  preset  gun  and  missile  sites  if  you 
want  to  use  them. 
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The  next  message  you  will  see  will  be: 

MILESTONE  INPUT:  0  =  DISK  FILE;  I  =  TERMINAL 

a.  DISK:  This  reads  a  previously  created  file.  Do  not  use  this 
option  if  you  have  never  run  GRPIP,  KBPIP,  or  IBMPIP. 

b.  TERMINAL:  This  allows  you  to  create  a  new  flight  path. 

When  this  is  done,  the  following  message  will  be  displayed: 

ERROR  CHECKING:  0  =  NO  CHECKING;  1  =  CHECK  FOR  ERRORS 
a.  NO  CHECKING:  With  this  option  game  and  flight  rule  errors 
will  be  ignored. 

p.  CHECK  FOR  ERRORS:  With  this  option,  errors  will  result  in 
the  operator  being  notified  of  the  cause.  When  the  terminal  input  option 
is  in  effect,  the  milestone  data  will  be  ignored  and  new  data  requested. 

If  the  disk  input  option  is  in  effect,  the  user  will  see  the  following 
prompt  if  an  error  occurs  during  execution: 

DO  YOU  WISH  TO  FIX  THE  ERROR:  0  =  NO,  USE  THE  POINT  1  =  YES 

a.  0:  The  program  will  ignore  the  error  and  use  the  data. 

b.  1:  The  program  will  request  new  data  for  the  current  mile¬ 
stone  only.  Subsequent  data  will  be  obtained  from  the  disk.  Note  that 
the  correction  may  cause  errors  in  subsequent  milestones. 

The  next  message  to  appear  will  be: 

FLIGHT  AND  GAME  PARAMETERS:  0  =  DEFAULT;  1  =  USER  INPUT 

a.  DEFAULT:  This  uses  preset  game  and  flight  parameters  for 
error  checking. 

b.  USER  INPUT:  This  allows  the  user  to  reset  error  parameters 

> 

to  reflect  different  game  and  flight  rules.  See  PARAMETER  CHANGING  for 

t 

further  information. 
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3.  Gun  and  Missile  Entry 

Following  initialization,  the  screen  will  go  blank  and  the 
following  message  will  appear: 

VILLAGE:  0  =  NOT  DRAWN;  1  =  VILLAGE  DRAWN 

a.  NOT  DRAWN:  This  option  results  in  only  the  gun,  SAM,  and 
target  locations  being  drawn.  This  saves  a  great  deal  of  time, 
particularly  on  300  BAUD  terminals. 

b.  VILLAGE  DRAWN:  This  option  draws  the  village,  road,  and 
river.  When  inputting  the  gun  and  SAM  sites,  this  option  should  be 
chosen  to  meet  the  game  requirements.  Drawing  the  full  map  takes  about  a 
minute  at  1,200  BAUD  terminals  and  about  5  minutes  at  the  slower  ones. 

If  the  preset  (option  0)  or  file  (option  2)  locations  are 
used  for  the  gun  and  missile  sites,  they  will  be  drawn  immediately.  The 
gun  sites  are  represented  by  a  surrounded  by  a  dotted  ring  at  the 
engagement  radius.  The  SAM  site  is  a  with  a  small  circle  around  it. 
The  target  is  a  "+"  with  two  small  circles  around  it.  User  input  of  the 
gun  sites  is  as  follows: 

a.  The  message  ENTER  GUN  COORDINATES  will  be  underlined. 

b.  A  bell  will  sound  and  the  map  border  will  flash. 

c.  A  cursor  will  appear. 

d.  Position  the  cursor  with  the  thumbwheels  on  the  right  of  the 
terminal . 

e.  Press  any  key.  The  cursor  will  disappear,  a  point  will 
appear,  and  the  cursor  will  re-appear.  If  the  cursor  reappears,  but  not 
the  point,  or  if  you  change  your  mind,  press  "N"  to  cancel  the  input. 

f.  Press  any  key  except  "N"  to  accept  the  X  and  Y  values. 
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g.  A  bell  will  ring  and  the  altimeter  border  will  flash. 

h.  Position  the  cursor  in  the  altimeter  and  enter  the  point  as 
above.  Note  that  the  altimeter  is  marked  in  100's  of  meters. 

i.  Repeat  steps  b-h  five  times.  The  guns  are  input  in  the 
following  order: 

(1)  Two  Type  1  mode  1— 1,000m  engagement  radius 

(2)  Two  Type  2  mode  l--l,400m  engagement  radius 

(3)  One  Type  3  mode  4--2,500m  engagement  radius 

(4)  One  Type  3  mode  3--2,500m  engagement  radius 

NOTE:  The  type  3  guns  may  not  be  within  3,000  meters  of  the  target.  If 
you  attempt  this,  the  message  TOO  CLOSE  TO  TGT  will  be  underlined  and  a 
bell  will  ring  several  times.  The  point  will  be  rejected  and  you  will 
have  to  enter  it  again. 

NOTE:  Entering  a  weapon  (gun  or  missile)  altitude  greater  than  1,000 
meters  will  abort  the  program  and  destroy  a  previously  created  GUN  LOC  file. 

When  all  six  gun  sites  are  correctly  entered,  the  message  ENTER 
MISSILE  LOCATION  will  be  underlined.  Repeat  steps  b-h. 

NOTE:  The  X  coordinate  must  be  greater  than  6,000  meters  or  the  error 
message  X  COORDINATE  <  6,000  will  be  presented. 

4.  Milestone  Entry 

When  you  have  finished  entering  the  gun  and  missile  sites,  the  bell 
will  ring  and  the  message  ENTER  MILESTONES  will  be  highlighted  in  the  error 
section.  Enter  milestones  using  steps  3. b-h  with  the  following  exceptions: 

a.  Pressing  "A":  This  signifies  that  an  aiming  line  is  desired. 

A  dashed  line  to  the  target  will  appear  to  assist  in  lining  up  for  the 
bomb  release  leg. 
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b.  Pressing  "B":  This  signifies  the  bomb  release  milestone. 

c.  Pressing  "R":  This  resets  the  problem.  The  screen  will  go 
blank  and  you  will  be  asked  the  milestone  at  which  to  reset  the  flight 
path.  This  destroys  the  map  and  it  must  be  redrawn.  This  can  cause  a 
long  wait  at  the  slow  terminals. 

d.  Pressing  "S":  This  stops  the  program.  The  point  is  plotted, 
but  not  checked  for  errors. 

The  special  keys  must  be  pressed  when  the  point  is  verified, 
not  when  it  is  first  selected. 

e.  The  velocity  must  be  entered  for  each  milestone.  The  hori¬ 
zontal  axis  of  the  altimeter  is  velocity.  The  tic  marks  are  at  50 
meter/sec  intervals  from  50  to  300  meter/sec.  If  error  checking  is  used, 
the  minimum  speed  is  90  meter/sec.  Velocity  is  limited  to  260  meter /sec 
before,  and  310  meter/sec  after  bomb  release.  Any  time  a  game  rule 

or  flight  path  error  is  detected,  the  error  will  be  marked  by  underlining 
and  ringing  the  bell.  Whenever  an  error  occurs,  the  X/Y/Z  and  velocity 
values  are  rejected.  The  Bomb,  Reset,  and  Stop  commands  take  priority 
over  errors  while  the  Aim  is  executed  only  at  legal  milestones.  This 
means  that  the  operator  can  always  stop  or  reset  the  program. 

f.  Repeat  steps  1-d  until  all  milestones  are  entered.  See 
Section  E  (Output  Selection)  to  finish  the  program. 

C.  EXECUTING  KBPIP 
1.  Enter:  KBPIP 

The  terminal  will  display  the  file  definitions  for  KBPIP. 

This  is  followed  by  a  delay  as  the  program  loads.  When  loading  is 


115 


complete,  the  message  "EXECUTION  BEGINS"  will  appear,  followed  by  the 
screen  clearing. 

2.  Initialization 

The  program  will  request  data  necessary  to  initialize  the  system. 
The  following  message  will  appear: 

GUNS:  0  =  DISK  FILE;  1  =  TERMINAL  READ;  2  =  PRESET 

a.  FILE:  This  reads  the  file  created  on  a  previous  run  using 
option  1.  Do  not  select  this  option  if  you  have  never  entered  gun  and 
missile  locations  at  the  terminal. 

b.  TERMINAL:  With  this  option  you  enter  your  own  locations. 

The  gun  and  missile  locations  will  be  saved  for  later  use. 

c.  PRESET:  GRPIP  has  preset  gun  and  missile  sites  if  you 
want  to  use  them. 

The  next  message  you  will  see  will  be: 

MILESTONE  INPUT:  0  =  DISK  FILE;  1  =  TERMINAL 

a.  DISK:  This  reads  a  previously  created  file.  Do  not  use  this 
option  if  you  have  never  run  GRPIP,  K8PIP,  or  IBMPIP. 

b.  TERMINAL:  This  allows  you  to  create  a  new  flight  path. 

When  this  is  done,  the  following  message  will  be  displayed: 

ERROR  CHECKING:  0  =  NO  CHECKING;  1  =  CHECK  FOR  ERRORS 

a.  NO  CHECKING:  With  this  option  game  and  flight  rule  errors 
will  be  ignored. 

b.  CHECK  FOR  ERRORS:  With  this  option,  errors  will  result  in 
the  operator  being  notified  of  the  cause.  When  the  terminal  input  option 
is  in  effect,  the  milestone  data  will  be  ignored  and  new  data  requested. 
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If  the  disk  input  option  is  in  effect,  the  user  will  see  the  following 
prompt  if  an  error  occurs  during  execution: 

DO  YOU  WISH  TO  FIX  THE  ERROR:  0  =  NO,  USE  THE  POINT  1  *  YES 

a.  0:  The  program  will  ignore  the  error  and  use  the  data. 

b.  1:  The  program  will  request  new  data  for  the  current  mile¬ 
stone  only.  Subsequent  data  will  be  obtained  from  the  disk.  Note  that 
the  correction  may  cause  errors  in  subsequent  milestones. 

The  next  message  to  appear  will  be: 

FLIGHT  AND  GAME  PARAMETERS:  0  =  DEFAULT;  1  =  USER  INPUT 

a.  DEFAULT:  This  uses  preset  game  and  flight  parameters  for 
error  checking. 

b.  USER  INPUT:  This  allows  the  user  to  reset  error  parameters 
to  reflect  different  game  and  flight  rules.  See  PARAMETER  CHANGING  for 
further  information. 

3.  Gun  and  Missile  Entry 

If  preset  (option  0)  or  file  (option  2)  locations  are  used,  the 
gun  and  missile  sites  will  be  automatically  entered.  User  input  of  the 
gun  sites  is  as  follows: 

a.  The  message  ENTER  GUN  LOCATIONS  will  appear,  followed  by: 

b.  ENTER  X  AND  Y  COORDINATES. 

c.  Enter  the  desired  values. 

d.  The  message  ENTER  ALTITUOE  will  appear. 

e.  Enter  the  desired  altitude. 

f.  Repeat  b-e  five  times.  The  guns  are  input  in  the  following 

order: 
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(1)  Two  Type  1  mode  1--  1,000m  engagement  radius 

(2)  Two  Type  2  mode  l--l,400m  engagement  radius 

(3)  One  Type  3  mode  4--2,500m  engagement  radius 

(4)  One  Type  3  mode  3— 2,500m  engagement  radius 

NOTE:  The  type  3  guns  may  not  be  within  3,000  meters  of  the  target.  If 
you  attempt  this,  the  message  TOO  CLOSE  TO  TGT  will  be  displayed.  The 
point  will  be  rejected  and  you  will  have  to  enter  it  again. 

NOTE:  Entering  a  weapon  (gun  or  missile)  altitude  greater  than  1,000 
meters  will  abort  the  program  and  destroy  a  previously  created  GUN  LOC  file. 

When  all  six  gun  sites  are  correctly  entered,  the  message  ENTER 
MISSILE  LOCATION  will  be  displayed.  Repeat  steps  b-e. 

NOTE:  The  X  coordinate  must  be  greater  than  6,000  meters  or  the  error 
message  X  COORDINATE  <  6,000  will  be  presented. 

4.  Milestone  Entry 

When  you  have  finished  entering  the  gun  and  missile  sites,  the 
message  ENTER  MILESTONES  will  be  displayed.  Enter  milestones  using  the 
following  steps: 

a.  The  message  ENTER  X  AND  Y  COORDINATES  will  be  displayed. 

b.  Enter  the  desired  coordinates. 

c.  The  message  ENTER  ALT.,  VEL.,  AND  COMMAND:  0  =  NONE; 

1  =  AIM;  2  =  BOMB;  3  =  RESET;  4  =  STOP  will  then  appear. 

d.  Enter  the  desired  velocity  and  command.  The  results  of 
commands  are: 


(0)  NONE:  no  special  action  occurs. 

(1)  AIM:  This  will  provide  the  distance  to  the  target  and 
the  X  and  Y  components  for  100  meters  along  the  aiming  line. 
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(2)  BOMB:  The  bomb  release  rules  are  checked. 

(3)  RESET:  The  program  will  ask  you  at  what  point  you  want 
to  reset  the  program.  If  selected  point  is  before  the  bomb  release 
point,  the  release  checks  will  be  cancelled. 

(4)  STOP:  The  final  milestone  is  accepted  and  milestone 
input  terminates.  If  this  command  is  given  on  the  first  milestone,  the 
program  will  stop  immediately,  otherwise  the  new  milestone  file  is 
written  and  output  options  are  requested  before  stopping.  See  Section  E. 

Any  time  a  game  rule  error  is  detected,  the  error  will  be  dis¬ 
played.  Whenever  an  error  occurs,  the  X/Y/Z/VEL  values  are  rejected.  The 
Bomb,  Reset,  and  Stop  commands  take  priority  over  an  error,  while  the  Aim 
command  will  be  accepted  only  at  legal  milestones.  This  means  the 
operator  can  always  get  out  by  executing  a  Stop. 

0.  EXECUTING  IBMPIP  (TEKTRONIX  Terminals  Only) 

1.  Enter:  IBMPIP 

The  following  message  will  appear:  EXECUTION  BEGINS. 

This  is  followed  by  a  delay  as  the  program  loads.  When  loading 
is  complete,  the  message  "EXECUTION  BEGINS"  will  appear,  followed  by  the 
screen  flashing  twice. 

2.  Initialization 

The  program  will  request  data  necessary  to  initialize  the  system. 
The  following  message  will  appear: 

GUNS:  0  »  DISK  FILE;  1  =  TERMINAL  READ;  2  =  PRESET 

a.  FILE:  This  reads  the  file  created  on  a  previous  run  using 
option  I.  Oo  not  select  this  option  if  you  have  never  entered  gun  and 
missile  locations  at  the  terminal. 
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b.  TERMINAL:  With  this  option  you  enter  your  own  locations. 

The  gun  and  missile  locations  will  be  saved  for  later  use. 

c.  PRESET:  GRPIP  has  preset  gun  and  missile  sites  if  you 
want  to  use  them. 

The  next  message  you  will  see  will  be: 

MILESTONE  INPUT:  0  =  DISK  FILE;  1  =  TERMINAL 

a.  DISK:  This  reads  a  previously  created  file.  Do  not  use  this 
option  if  you  have  never  run  GRPIP,  KBPIP,  or  IBMPIP. 

b.  TERMINAL:  This  allows  you  to  create  a  new  flight  path. 

When  this  is  done,  the  following  message  will  be  displayed: 

ERROR  CHECKING:  0  =  NO  CHECKING;  1  =  CHECK  FOR  ERRORS 

a.  NO  CHECKING:  With  this  option  game  and  flight  rule  errors 
will  be  ignored. 

b.  CHECK  FOR  ERRORS:  With  this  option,  errors  will  result  in 
the  operator  being  notified  of  the  cause.  When  the  terminal  input  option 
is  in  effect,  the  milestone  data  will  be  ignored  and  new  data  requested. 
If  the  disk  input  option  is  in  effect,  the  user  will  see  the  following 
prompt  if  an  error  occurs  during  execution: 

00  YOU  WISH  TO  FIX  THE  ERROR:  0  =  NO,  USE  THE  POINT  1  =  YES 

a.  0:  The  program  will  ignore  the  error  and  use  the  data. 

b.  1:  The  program  will  request  new  data  for  the  current  mile¬ 
stone  only.  Subsequent  data  will  be  obtained  from  the  disk.  Note  that 
the  correction  may  cause  errors  in  subsequent  milestones. 

The  next  message  to  appear  will  be: 

FLIGHT  AND  GAME  PARAMETERS:  0  =  DEFAULT;  1  =  USER  INPUT 


a.  DEFAULT:  This  uses  preset  game  and  flight  parameters  for 
error  checking. 

b.  USER  INPUT:  This  allows  the  user  to  reset  error  parameters 
to  reflect  different  game  and  flight  rules.  See  PARAMETER  CHANGING  for 
further  information. 

3.  Gun  and  Missile  Entry 

Following  initialization,  the  screen  will  go  blank  and  the 
following  message  will  appear: 

VILLAGE:  0  =  NOT  DRAWN;  1  =  VILLAGE  DRAWN 

a.  NOT  DRAWN:  This  option  results  in  only  the  gun,  SAM,  and 
target  locations  being  drawn.  This  saves  a  great  deal  of  time, 
particularly  on  300  BAUD  terminals. 

b.  VILLAGE  DRAWN:  This  option  draws  the  village,  road,  and 
river.  When  inputting  the  gun  and  SAM  sites,  this  option  should  be 
chosen  to  meet  the  game  requirements.  Drawing  the  full  map  takes  about  a 
minute  at  1,200  BAUD  terminals  and  about  5  minutes  at  the  slower  ones. 

If  the  preset  (option  0)  or  file  (option  2)  locations  are 
used  for  the  gun  and  missile  sites,  they  will  be  drawn  immediately.  The 
gun  sites  are  represented  by  a  "+"  surrounded  by  a  dotted  ring  at  the 
engagement  radius.  The  SAM  site  is  a  "+"  with  a  small  circle  around  it. 
The  target  is  a  "+"  with  two  small  circles  around  it.  User  input  of  the 
gun  sites  are  as  follows: 

a.  The  message  ENTER  GUN  COORDINATES  will  be  displayed.  Press 
the  "CLEAR"  key  on  the  upper  left  part  of  the  keyboard. 

b.  The  map  border  will  flash  and  a  cursor  will  appear. 
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c.  Position  the  cursor  with  the  joystick  on  the  right  of  the 
terminal . 

a.  Press  any  light  grey  key.  The  cursor  will  disappear,  a  point 
will  appear,  and  the  cursor  will  re-appear. 

e.  Press  any  PF  key  to  accept  the  X  and  Y  values,  press  a  grey 
key  to  reject  it.  Repeat  d.  and  e.  if  the  point  is  rejected. 

f.  The  altimeter  border  will  flash. 

g.  Position  the  cursor  in  the  altimeter  and  enter  the  point  as 
above.  Note  that  the  altimeter  is  marked  in  100's  of  meters. 

h.  Repeat  steps  b-h  five  times.  The  guns  are  input  in  the 
following  order: 

(1)  Two  Type  1  mode  l--l,000m  engagement  radius 

(2)  Two  Type  2  mode  l--l,400m  engagement  radius 

(3)  One  Type  3  mode  4--2,500m  engagement  radius 

(4)  One  Type  3  mode  3--2,500m  engagement  radius 

NOTE:  The  type  3  guns  may  not  be  within  3,000  meters  of  the  target.  If 
you  attempt  this,  the  message  TOO  CLOSE  TO  TGT  will  be  underlined  and  a 
bell  will  ring  several  times.  The  point  will  be  rejected  and  you  will 
have  to  enter  it  again. 

NOTE:  Entering  a  weapon  (gun  or  missile)  altitude  greater  than  1,000 
meters  will  abort  the  program  and  destroy  a  previously  created  GUN  LOC  file. 

When  all  six  gun  sites  are  correctly  entered,  the  message  ENTER 
MISSILE  LOCATION  will  appear.  Press  the  "CLEAR"  key  and  repeat  steps 
b-g. 

NOTE:  The  X  coordinate  must  be  greater  than  6,000  meters  or  the  error 
message  X  COORDINATE  <  6,000  will  be  presented. 


4.  Milestone  Entry 

When  you  have  finished  entering  the  gun  and  missile  sites,  the 
bell  will  ring  and  the  message  ENTER  MILESTONES  will  appear  on  the  IBM 
terminal.  Press  "CLEAR."  Enter  milestones  using  steps  3.b-h  with  the 
following  exceptions: 

a.  Pressing  "PF1":  This  signifies  that  an  aiming  line  is 
desired.  A  dashed  line  to  the  target  will  appear  to  assist  in  lining  up 
for  the  bomb  release  leg. 

b.  Pressing  "PF2":  This  signifies  the  bomb  release  milestone. 

c.  Pressing  "PF3":  This  resets  the  problem.  The  screen  will  go 
blank  and  you  will  be  asked  the  milestone  at  which  to  reset  the  flight 
path.  This  destroys  the  map  and  it  must  be  redrawn.  This  can  cause  a 
long  wait  at  the  slow  terminals. 

d.  Pressing  "PF4" :  This  stops  the  program.  The  point  is  plotted, 
but  not  checked  for  errors. 

The  special  keys  must  be  pressed  after  the  dot  has  appeared. 
Press  PF  keys  5-12  to  accept  the  pooint  without  any  special  option 
selected. 

e.  The  velocity  must  be  entered  for  each  milestone.  The  hori¬ 
zontal  axis  of  the  altimeter  is  velocity.  The  tic  marks  are  at  50 
meter/sec  intervals  from  50  to  300  meter/sec.  If  error  checking  is  used, 
the  minimum  speed  is  90  meter /sec.  Velocity  is  limited  to  260  meter /sec 
before,  and  310  meter/sec  after  bomb  release.  Any  time  a  game  rule 

or  flight  path  error  is  detected,  the  error  will  be  marked  by  a  thin 
rectangle  flashing  on  the  right  side  of  the  graphics  screen.  The  error 
message  will  appear  on  the  IBM  screen.  Press  "CLEAR"  and  resume  entering 
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milestones.  Whenever  an  error  occurs,  the  X/Y/Z  and  velocity  values  are 
rejected.  The  Bomb,  Reset,  and  Stop  commands  take  priority  over  errors 
while  the  Aim  is  executed  only  at  legal  milestones.  This  means  that  the 
operator  can  always  stop  or  reset  the  program. 

E.  OUTPUT  SELECTION  (ALL  VERSIONS) 

When  new  milestones  or  weapons  have  been  entered,  the  program  writes 
them  to  disk  file  PTS  LOC  for  later  use.  If  a  new  fliqht  path  was 
created,  the  program  then  displays: 

ARE  YOU  FINISHED  WITH  THIS  FLIGHT  PATH:  0  =  NO;  1  =  YES 

a.  NO:  This  marks  the  data  with  an  end  of  data  command.  When  read 
by  GRPIP,  KBPIP,  or  IBMPIP,  no  further  points  can  be  added. 

b.  YES:  This  marks  the  file  with  a  continuation  command.  When 
GRPIP,  IBMPIP,  or  KBPIP  finish  reading  the  file  on  a  later  run,  they  will 
ask  the  operator  to  continue  entering  milestones. 

The  computer  then  prints: 

OUTPUT  FILE:  0  =  NO  OUTPUT;  1  =  POOl  FILE  ONLY; 

2  =  MICE  FILE  ONLY;  3  =  POOl  &  MICE  FILES 
The  POOl  file  is  located  on  your  disk  as  POOl  DATA  and  the  MICE  file 
is  called  MICE  DATA. 

F.  HARD  COPY 

There  are  three  methods  of  obtaining  a  hard  copy  of  the  fliqht 
path  and  weapon  sites.  The  first  uses  the  TEKTRONIX  plotter,  the  second 
uses  the  VERSATEC  plotter,  and  the  third  uses  the  TEKTRONIX  hard  copy 
device. 

To  use  the  TEKTRONIX  plotter,  it  is  necessary  to  connect  the  TEKTRONIX 
terminal  to  the  plotter  and  then  to  the  modem.  Set  the  corners  and  then 


leave  the  plotter  on  LOAD.  Before  the  final  milestone  is  entered,  press 
"R"  for  the  reset  option.  After  the  request  for  starting  point  is 
printed,  take  the  plotter  out  of  LOAD.  The  plotter  will  plot  the  mile¬ 
stones,  weapon  sites,  and,  if  requested,  the  village.  Finish  inputting 
the  last  milestone.  The  plotter  will  plot  the  final  milestones.  Before 
the  output  selection  is  started,  set  the  plotter  back  to  LOAD  and  finish 
running  the  program. 

To  use  the  VERSATEC  plotter,  two  methods  are  available.  First,  a  map 
of  the  scenario  only  can  be  made.  The  other  option  is  to  get  a  complete 
plot  of  the  scenario,  milestones,  and  weapon  sites. 

To  get  only  the  map,  perform  the  following  steps: 

a.  ENTER:  COPY  VERSA  PLOT  B  »  »  A. 

b.  XEDIT  VERSA  PLOT  and  put  your  JOB  card  in  as  the  first  entry. 

c.  FILE  VERSA  PLOT. 

d.  ENTER:  SUBMIT  VERSA  PLOT. 

To  get  a  complete  drawing,  perform  the  following: 

a.  ENTER:  COPY  HOR  DATA  B  PTS  LOC  A  PLOT  MAP  A. 

b.  XEDIT  PLOT  MAP  and  put  your  JOB  card  in  as  the  first  entry  and  /* 
as  the  final  one. 

c.  FILE  PLOT  MAP. 

d.  ENTER:  SUBMIT  PLOT  MAP. 

The  VERSATEC  maps  can  be  picked  up  at  the  computer  center  printer 
room. 

The  TEKTRONIX  hard  copy  device  is  very  simple  to  use.  Turn  it  on 
and  allow  it  to  warm  up,  about  15  minutes.  This  warm-up  can  be  done 
while  you  are  running  GRP  I P  or  IBMPIP.  When  you  want  a  copy,  press  the 
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button  marked  COPY.  You  will  see  a  vertical  line  sweep  across  the 
terminal  screen.  Soon  after  this,  the  hard  copy  device  will  provide  your 
copy.  Several  copies  may  be  necessary  to  properly  adjust  the  intensity. 

On  the  622  (IBMPIP)  terminal,  this  intensity  can  also  be  adjusted  using 
the  knob  on  the  bottom  right  part  of  the  terminal  marked  HARD  COPY 
INTENSITY. 

G.  CHANGING  PARAMETERS 

When  this  option  is  selected,  the  following  message  will  appear: 

SELECT  PARAMETER  TO  BE  CHANGED:  1  =  NO  MORE  CHANGES 
2  =  MAX  LIFT  COEFF:  3  =  WING  LOADING;  4  =  STALL  SPEED 
5  =  MAX  G  FORCE;  6  =  MIN  ALT;  7=  MAX  ALT  (<  2,200  MTR) 

8  =  DISTANCE  TO  TARGET  BEFORE  POPUP  ALLOWED 

9  =  MAX  APPROACH  ALT;  10  =  MAX  T/W  RATIO;  11  =  DRAG  COEFF.  W/0  LIFT 
12  =  LIFT  DRAG  CONSTANT;  13  =  MAX  SPD  WITH  BOMB 

14  «  MAX  SPD  W/O  BOMB;  15  =  TARGET  COORDINATES 
16  READ  PARAMETER  FILE;  17  =  LIST  PARAMETERS 

Enter  the  desired  value.  If  a  number  between  2  and  5  is  selected, 
another  prompt  will  appear.  Enter  the  desired  value.  If  16  is  chosen, 
disk  file  PAR  SAV  will  be  read;  do  not  choose  this  option  if  you  have 
never  changed  parameters.  A  17  will  list  the  current  values  of  the 
parameters.  To  exit,  select  a  1.  This  will  write  the  current  parameter 
values  to  PAR  SAV  and  return  to  the  main  program. 
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APPENDIX  3 

GRP  I P  PROGRAM  lISTING 


COMMON  /LOC/X1  ,  II  ,Z1 ,  VI,  LTR,  LTR2 
COMMON/MN/  IBAOD, MINT.  MAXI,  MINX,  NAXX,  MINI  .MAXI 
COMMON/PAR/X  (200)  ,7  (200).Z  (2  00 ) ,  MD3  {  200)  ,  CA  (200)  ,  R  A  (200)  ,  7 
COMMON/F  AR 1/XDOT  (200)  ,  IDOT  (2  00  ,ZDOr  (200)  , MNUM , MBR 
COMMON/PAR2/T  (200)  ,  XG0N(7)  ,  YG0N(7)  ,  Z  CON (7)  ,XSAN,  7SAM,ZS.\H, 
COMMON /OPT/I GuN,IPNCH, IEXT , I S A M, I MP,  KER 
MBR=0 
MN0M=0 
T  ( 11=0. 

CALL  BEGIN 
CALL  SCENE  (0,0) 

REWIND  10 
IF  (IGON  .NE.  1) 


7EL (200) 
G  5  (  7) 


IGON  =  1« 


GOTO  25  0 
READ  GON  SITES 


FROM  TERMINAL 


CALL  ERRHK ( 16 ) 

DO  212  1=1,  6 
IERR=0 
CALL  XYZIN 
XGON  (I)  *X1 
TGON  i  I)  =7  1 
ZGON  i  lj  =Z1 

IF  (Z  1.GE.  1000.)  STOP 
IF  (I  .GE.  5)  CALL  GONCHK  (X  1,7  1, 1  ERR) 
IF  ( IERR  .EQ.  0)  GOTO  212 
CALL  EHRMK(IERR) 

GOTO  211 

WRITE  (10, 5011X1, 71, Z1 
CALL  EhRMK ( 14) 

CALL  X7ZIN 
XSAM*  X 1 
ISAM*  71 
ZSAM=  Z  1 

IF  (Z1  .GE.1  000.)  STOP 
CALL  SAMCHK  (X  1.IERR) 

IF  (IEHF  .NE.  0)  GOTO  220 
WRITE  ( 1 C,  50  1)  X1,I1,Z1 


IGON*  2==  > 


250 

252 


2  60 
265 


READ  GON  SITES 
0)  GO  TO  260 


FROM  DATA  PILE 


IF  (IGON  .NE. 

DO  252  1=1,6 

READ  (10,50  1)  XGON  (I)  .IGON  (I)  ,ZG0N  (I) 
READ (10,50 1)  XSAM, ISAM, ZSAli 

DRAW  GON  SITES  AND  ENGAGEMENT  CIRCLES 

DO  265  1=1,7 

CALL  GONLOC  (XGON  (I)  .TGON(I)  , GR  (I)  ) 
CALL  GONLOC( XSAM, ISAM, 150.) 
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FILE:  T3 


FORTRAN  A 


NAVAL  POSTGRAD  GATE  SCHOOL 


THIS  SECTION  ACCEPTS  THE  FLIGHT  1 1LES TONES 


FTFAC=3. 28084 
DGFAC=57. 29578 
CALL  ERRMK  (1  5) 

BEHIND  1  1 
300  HN0M=MN0M*1 

READ  MILESTONES  FROM  THE  DISK 

302  IP  (IMP  .NE.  0)  GOTO  305 

READ  (  11-6  25)  X  (MNUM)  ,Y  (MNUM)  ,  Z  (  MN  U  M) 
IF  (XJMNOM)  -LE.  0.1)  GOTO  302 
IF  ?LTR  .  EQ.  1)  IMP  =  1 
LTR2=LTR 
GOTO  308 

READ  MILESTONES  FROM  THE  TERMINAL 
305  CALL  XYZIN 


,VEL  (MNOM)  ,  LTR 


COMPOTE  FLIGHT  PARAMETERS  AND  CHECK  FOR  ERRORS  OR  USER  COMMANDS 

308  IF  (MNOM  .  EQ.  1  .  AND.  (LTR.  EQ.  83  .OR.  LTR2.EQ.83))  STOP 
IF  (MNOM  .EQ.  1)  GOTO  300 
IERR=0 

CALL  VALSET(IERR) 

IF  (((LTR.EQ.  82)  .OR.  (LTR2.  EQ.  82)  ).  A  ND.  (IMP.  NS.  0))  GOTO  350 
IF  i  (LTR  .EQ.  66)  .OR.  (LTR2.  EQ.  66)  )  MBR  =  NN0M 
IF  (  LTR  -EQ.  83)  .OR.  (LTR 2.  EQ.  83  )  GOTO  370 
IF  (IEBR  .EQ.  0  )  CALL  ERRCHK(IERR) 

IF  ((IERR*KEH  .eq.  0)  .AND.  (I  ERR  .ME.  12))  GOTO  310 


IF  (  (IERR^KeR  .EQ.  0)  .AND.  (I  ERR  .  N  E.  12))  GOTO  310 
CALL  ERRHK  (I  ERR) 

IF  (IMP  .NE.  0)  GO  TO  305 
CALL  ERRMK  (20) 

READ  (5.ft)  ICOR 

IF  (ICOR.  EQ.1)  GO  TO  305 


MILESTONE  ACCEPTED,  RESTART  THE  SEQOENCE 
I  CALL  PTHPLT 

IF  (LTR  .EQ.  65  .OR.  LTR  2  .EQ.  65)  CALL  A IMPT  (MNOM) 
GOTO  300 

THIS  SECTION  RESETS  THE  DATA 

I  CALL  SCENE  (1  ,ICT) 

REWIND  19 

IF  (MBR  .GT.  ICT)  MBR=0 

COMPLETE  RESTART 

IF  (ICT  .GT.  1)  GOTO  352 
HNOM=0 
GOTO  260 

DRAW  RETAINED  MILESTONES 

!  IF  ((ICT  .GE.  MNOM)  .AND.  (MNOM  .GE.  3))  ICT=MNUM-1 
DO  3  55  MNUM=2,ICT 
>  CALL  PTHPLT 

MN0N*HN0M-1 
GOTO  260 


T3  OC 
T3  OC 


T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  01 
T3  0  1 
T3  0  1 


T  3  0  1 
T3  01 
T3  0  1 
T3  01 
T  3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  0  1 


T3  0  1 
T3  01 
T3  0  1 
T3  0  1 
T  3  0  1 
T  3  01 
T3  0  1 
T  3  01 
T3  0  1 
T3  0  1 
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FILS:  T3 


FORTRAN  A  NAVAL  POSTGRAD  OATS  SCHOOL 


THIS  SECTION  TERMINATES  THE  PROGRAM 

I  BLANK=0. 

CALL  PTHPLT 

LAST=IMP 

CALL  ELFIN  (LAST) 

COMPOTE  FLIGHT  PARAMETERS  FOR  FINAL  LEG 


DX*X(MNOH)  -  X  (MNOM-1) 

DY*Y  (M  NOM)  -  Y(MNOM-I) 

D2=Z  I  MNOM)  -  Z(MNUM-I) 

RA  (MNOM) *0. 

CA  (MNOM)  *ATAN2  (02, SORT  (DX'*'*2 
IF  ((DX  .EQ.  0.)  .OR.  ]DY  .E 
HDG(MNOM) =ATAN2 (DY,D 


.AND.  i 
.AND.  | 
.AND.  I 
.AND.  i 
NOM)  *C0‘ 


DY  .GT. 
DY  .  LT. 


XDOTtMNOM)  =VEL  (MNOM)  *COS  (HDG 
YDOTiM  NOM i =V  EL  MNOM i  *SIN  HDG 
2 DOT  (HN  UL i =V  EL i MNOM  **SINiCA( 


HDG  (MNOM) 
(MNOM 
MNOM) 


01**2) ) 

0.))  GOTO  371 


I  HDG  (MNOM)  =1.57079 
HDG  (MNOM)  =-1.57079 
HDG (MNOM) =3. 14159 
HDG  i  MNOMl  =0. 

*  COS  ( CA  (MNOM)  ) 

)  *  COS  ( CA  (MNOM) 


CREATES  NEW  "  PTS  LOC  "  I?  NEW  WEAPON  OR  MILESTONE  COORDINATES 
HAVE  SEEN  INPOT 


((IMP  -EQ.  0)  .  AND.  (IGON  .  NE .  1))GOTO  377 
REWIND  11 


REWIND  11 
IGON= 1 

WRITE <  11,625)  ELANK, BLANK, BLANK, BL 
DC  375  1*1  ,MNOM 
LTR*0 

IF  IT  .EQ.  MER)  LTR=66 
IF  I  I  .EQ.  MNOMi  LTR=LAST 

375  WRITE  i  11,6251  X  (1)  . T  (I)  , Z  (I)  , VEL(I  I 
WRITE  i  11,626) 

WRITE i  11,6271 VEL(1) ,HBR, BLANK, BLAN 
*  BLANK 

IF  (IGON  .EQ.  0)  GOTO  377 
DO  376  1  =  1,6 

376  WRITE  ( 1 1  ,625)  XGON  (I)  ,  IGON  (I)  ,  ' 
WRITE  ( 11 , 6 25)  XSAM, ISAM, ISAM 

CONVERT  ANGLES  FROM  RADIANS  TO  DEGREES 

377  DQ  380  1=1, MNOM 

CA  (I )  *CA  {  I)  *DGFAC 
RAjll  *RAjl)#DGFAC 
3  80  HDG  (t)  *HDG  (I)  ^DGF  AC 

CALL  PRESET 

500  FORMAT (217) 

501  FORMAT (3Fl6.  2) 

625  FORMAT  (4F10.  0,13) 

626  FORMAT  (•  99999.  •) 

627  FORMATJFIO. 0, 12,811  ,F10.  0) 

STOP 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI 
C  VALSET 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


ANK, BLANK 

)  ,LIS 

K, IGON, IGON, BLANK, BLANK, IGON, 
ZGON  ( I) 


SOBROOTINF  VALSET  (IERR) 

COMMON/P AR/X  (200)  , Y  (200  .2  (200)  , HDG  (  200)  ,CA(200)  ,R 
CCMMON/P AR1/XDOT  (20u) ,YDOT(200) ,ZD0T  (200)  , MNOM ,  MBR 


CCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCC 

200)  ,  CA  (20  0)  ,  R  A  (200)  ,VEL(200) 


COHHON/PAR2/T  (200) 

COMMON/PAR3/TMD. ACLIFT,CLM AX, W L, TMAX 
DIMENSION  AX  D  ( 200)  ,  A  YD  (200)  ,  AZD(200) 
GBE=9. 82 


,CD0,CDK,VMAX1.VMAX2 
, XDD  (200)  ,  YDD  (200)  ,2DD  (200) 


T  3  01' 
T3  01 
T3  01 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
?3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  0  1 
T3  01 
T3  01 
T3  01 
T3  0  1 
T3  01 
T3  01 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  0  1 
T3  01 
T3  01 
T3  0  1 
T3  0  1 
T3  0  1 
T3  01 
T3  0  1 
T3  0  2 
T3  02 
T3  o: 
T3  0  2 
T3  o: 
T3  02 
T3  or 
T3  0  2 

T3  o: 

T3  0  2 
T3  0  : 

T3  o: 

T3  c: 
T3  o: 
T3  0  . 
T3  o: 
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PILE:  T3 


FORTRAN  A  NAVAL  POSTS  RAD  OATS  SCHOOL 


DX=X  (MNOM)  - 
D  Y=Y  (MNOM)  - 
DZ=Z  iMNOt!)  - 
IF  ( I D X  -NE 
ISRR=12 
RETOFN 
VAVGL=VAVG 
DISTL=DIST 


LIMIT  THE  SPEED 


-  X(MNUM-I) 

-  Y  MNOH-1) 

-  Z ■  MNOM-1 j 
E.  0.)  .OR. 


DIST' 

SI 

VAVG 


RT(DX**2  ♦  DY*«>2  ♦  DZ#*  2) 
EL MNOM)  .GT.  VMAX1)  . AN  D. 
ELMNOH)  .GT.  VMAX2).AND. 
EL  (MN  OH)  ♦  VEL  (MNOM-1)  )  /2  . 


VAVG=(VEL  (MN  OH  )+V  EL  (MNOM-1)  )  /2  . 

DT= DIST/ VAVG 

T(MNUM)  =  T  (MNOM-1)  +DT 

COMPOTE  AVERAGE  VELOCITY  COMPONENTS 


MNOM)  =VM AX2 


AXD (MN  OH 
AYD  I MNOM 
AZD  MNOM 
IF  i MNOM 


=VAVG*DX/DIST 
=VAVG*»DY/DIST 
=VAVG*DZ/DIST 
.GE.  3)  GOTO  20 


COMPOTE  THE  PARAMETERS  FOR  THE  INITIAL  LEG  OP  THE  FLIGHT  PATH 


CA  (1)  =ATAN2  (DZ,SQRT  (DX»*2 
IF  (  (EX  .  EQ.  0.)  .OR.  (DY 
HDG( 1) =ATAN2  (DY, DX) 
GOTO  11 

IF  (EX  . EQ.  0.)  -AND.  (D1 

IF  i  i  EX  .  EQ.  0.  .AND.  (D! 

IF  EY  .  EQ.  0.  .AND.  (D1 

IF  i DY  .  EQ-  0.  .AND.  (D3 


DY*»2] 


GOTO 


IF  (EX  .  I 
IF  u  EX  . E 
IF  i  EY  .  I 
IF  1 i DY  . E 
RA(T) *0. 

XDOT  ( 1)  *V  EL  (1) 
YDOT  1 1)  =VEL  (1) 
ZDOT]l)=VEL  (1) 
RETOFN 

DBLT* (T  (MNOM) 


=1.57079 

=-1.57079 

=3.14159 

=0. 


*DX/DIST 

*DY/DIST 

"DZ/DIST 


■T (MNO  M-2) ) /2. 


COMPOTE  THE  ACCELERATION  COMPONENTS 

XDD  (MNOM-1)=  (AXD  (MNOM)  -AXD  (MNOM-1))  /DELI 
YDD  (MNOM-1)  *  (AYD  (MNOM)  -AYD  (MNOM-1  /DELT 
ZDD  (MNOM-1)  =  (AZD  (MNOM)  -AZD  (MNOM-1))  /DELT 

HEIGHT  AVERAGE  OP  THE  VELOCITY  COMPONENTS 

HDAVG*DISTL/  (DIST«-DISTL) 

TDX=  (AXD  (MNOM)  /V  AVG- AXD  (MNOM-1 )  /V  AVG  L)  ^  HD  AVG*  AXD  (MNOM-1)  /VAVGL 
TDY*  (AYD  (MNOM)  /V  A VG-AYD? MNOH-1  /VAVGL)  ®HDAVG*AYD  (MNOM-1)  /VAVGL 
TD2*  (AZD  (MNOM)  /V AVG- AZD(MN0H-1 )/V  AVGL)  ®HD  AVG+AZD  (MNOM-1)  /VAVGL 

MAKE  THE  HEIGHTSD  VALOES  A  ONIT  VECTOR  AND  COMPOTE  THE  MILESTONE 
VELOCITY  COMPONENTS 


0NIT»SQRT  (TDJ 
IF  (ABS  (ONIT) 
xERR*  12 
RETORN 

TDX*TDX/ONIT 
TDY*  TDY/ ONIT 
TDZ*TDZ/ONIT 
XDOT  (MNOH-1)  = 


(ABS 

xERRs 


TDX*TDX  ♦TDY*TDY  «■  TDZ*TPZ) 


XDOT (MNOH-1 
YDOT(HNOH-1 
ZDOT  (MNOM-  1 
IF  (SQRT  (TDX 
CA  (MNOH- 


)  *VEL  (MNOM-11 
I  *VEL  (MNOM-1 
i  *VEL(MNOM-T 
*TDX*TDY«TDY 
1)  =  1.  5533 


GO  TO 


*TDX 

•TDY 

•TDZ 

.GE. 


GO  TO 


CA  (MNOH-1)  *ATAN2  (TDZ  ,SQRT  (TDX*  TDX*TD  Y*TDY )  ) 


T3  o: 
T3  o; 
T3  0< 
T3  0. 
T3  o: 
T3  02 

T 3  o: 
T3  o: 
T3  o: 
T3  01 
t  3  o : 
T3  02 
T3  o: 
T3  02 
T3  0  2 

T 3  o: 

T3  0  ' 
T  3  0 
T  3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  9 
T3  0 
T3  0 
T3  0 
T3  0 
T?  0 
T3  0 
T3  0 
T3  0 
73  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
73  0 
73  0 
T3  0 
T3  0 
T3  0 
73  0 
T3  0 
T3  0 
73  0 
T3  0 
T3  0 
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FORTRAN  A  NAVAL  POSTGRAD  DATE  SCHOOL 


(  (TDX 


D X  .EQ.  0.)  .OR.  (TDY  .E 
HDG (MNUM-1) =ATAN2 (TDY,TD 
GOTO  45 


(TDX  .EQ. 
TDX  .EQ. 
TDY  .EQ. 
TDY  .EQ. 


.  AND. 
.AND. 
.AND. 
.AND. 


TDY  . GT.  0. 
TDY  . LT.  3. 
TDX  .  LT.  0. 
TDX  .GT.  0. 


GOTO  4  0 


HDG(MNUM-1 
HDG(MNOM-V 
HDG i MNOM-1 


HDG  (MNOM-1  =0. 


=1.57079 
=-1.57079 
=  3.  14159 


COMPONENTS  OF  ACCELERATION  IN  THE  AIRCRAFT  COORDINATE  SYSTEM 

CASIN=SIN  (CA  (MNUM-1) 

CACOS=COS  CA jMNUM-1) 

HDSIN* SIN  HDG (HNOM-1  ) 

HDCOS=COS  HDG  (MNOM-1  [ 

A1 1=XDD(MNUM-1) *HDCOS"CACOS 
A21*-XDD  (MNOM-  1)*HDSIN 
A 3  1=-XDD  (MNOM-  1)  *HDCOS«CASIN 
A  1 2*YD D ( MNOM - 1 ) » HDS I N* CACOS 
A22=YDD j  HNUM-1)*HDCOS 
A32*— YDD  (MNUM-1)*>HDSIN*CASIN 
A 1 3*  (ZDD  (MNOM-1)  ♦GEE) ^CA SIN 
A23*0. 

A33=  (ZDD  (MNOM-1)  ♦GEE)'* CACOS 


COMPOTE  ACCELERATION  PARALLEL  AND  P  ERP  EN  DI COLAR 
TMD*  (A  1  1  +  A12  +  A  13)  /GEE 

ACLIFT*  (SQRT  (  (A21+A22)  *9  2*  f  A31 +A32+ A  331  **2)  |  A 


FLIGHT  PATH 


ACLIfT*  (SORT  (  ( A21+A22)  99  2*  f  A31  +A3 2+  A  331  * * 2)  |  /GEE 
I?  (ABS  (A31+A32+A33)  .GE.  <3.07)  GO  TO  50 
HA(MNOM-1)  =  1. 57079 
GO  TO  55 

50  RA  (MNOM  -  1)=ATAN2(  (A21+A2  2)  ,  ( A3  1  +  A32^  A33)  ) 

55  CALL  2RRHK  (21) 

RETORN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SOBROOTINE  ERRMK  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SOBROOTINE  ERRMKjlERR) 

COMMON /ERR/MKERX  (3)  . MKERY (20) 

COMMON/MN/IB  AU*1.  MINY ,M AXY,  MINX  ,MAXX 
IF  (IERR  .GT.  20)  GOTO  85 
J*2 


2+A33)  .( 
1.57079 


IF  (IERR  . LE.61 
IF  (IERR  . GT. 1 2 
MKX=MKERX(J) +20 


J  =  1 

t J*3 


DETERMINE  NUMBER  OF  TIMES  TO  FLASH  THE  LINE 
K=5*  30*IBA  OD 
UNDERLINE  THE  PROMPT 


DO  80  1=1, K 

CALL  MOV  ABS  (  MKERX  (  J1  ,  MKERY  (IERR)  ) 

CALL  DRW  ABS  (  SKX, MKERY (IERR)) 

CALL  DRW  ABS]MKERX(J), MKERY  (IERR)  ) 

80  IF  (  I  .LE.  id)  CALL  BELL 

RETURN 

85  MKX»950 
HKY=10*  (IERR -15) 

DO  86  1*1.3 

CALL  MOVA BS  (MKX, MKY) 

86  CALL  ERWAB5  (MKX+3 0,  MKY) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
C  SOBROOTINE  PTHPLT  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 


T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0  2 
T3  0  3 
T3  0  3 
T3  03 
T3  o: 
T3  0  3 
T  3  o ; 
T3  02 
T3  02 
T3  02 
T3  o: 
T3  0  2 
T3  0  ' 
T3  0  2 
T3  0  ; 
T3  o: 
t3  o ; 
T3  o: 
T3  0  ; 
T3  0. 
T3  0 
T3  0. 
T3  0 
T3  0. 
T3  0 
T3  0 
T  3  0 
T3  0 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  PTHPLT 

COMMON/PAR/X  (200)  .1  (200)  -Z  (200)  ,  H  DG  {  200)  ,  CA  (200)  ,  RA  (200)  ,  VEL  (200) 
CCMMON/PAR1/XDOT  (200)  ,YDOT(200)  ,ZDOT  (200)  ,  MN0M  ,  M&R 
COMMON/MN/IB  AUD, MINY,MAXY, MI  NX , HAXX 


C 

C 

c 


IDENTIFY  THE  MAP,  DRAM  AND  LABEL  THE  FLIGHT  LEG 

CALL  MIN  (MINX,  MAXI,  18000.,  1200  0.,0) 

CALL  MOVEA  (X  (MNOM-1)  ,Y  (MNOM-1)  ) 

CALL  DRANAjX  (HNOM)  ,  Y  (MNOM)  ) 


C 

c 

c 


CALL  ANMCDE 
IF 
IF 
IF 


NNOH  .GT.  99)  MRITE  (6,900)  MNUM 
(HNOM  .GT.  9)  .AND.  (MNOM. LT.IOOf) 
MNUM  .LE.  9)  MRITE (6 ,902 )  HNOM 


MR ITE (6 , 901)  MNUM 


SAVE  THE  PCINT  IN  ‘TEMP  DATA* 


4  i W.b 

'  ,1 3) 

•♦',i2j 

•♦'.II 


MRITE (  1 9 ,625  )  X  (M  NOM)  ,Y  (MNOM)  ,Z  (HNOM)  ,  VEL  (MNCIM)  ,HBR 
6  25  FORMAT  (4f  10.  6.13) 

900  FORMAT  ‘ 

901  FORMAT i 

902  FORMAT i 
RETORN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  GONLOC  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SOBROOTINE  G ONLOC  (GX ,G Y,  RAD) 

-  M AX Y,  HI] 


c 

c 

c 


c 

c 

c 


c 

c 

c 


COMMON/ MN/IB  ADD, MlNY, 
IDENTIFY  THE  MAP  AND  PLACE  A 


NX , M AXX , MINI, MAXI 
AT  THE  LOCATION 


CALL  MIN(HINX,MAXX,  18000.,  12000.  ,  0) 


CALL  MOVEA 
CALL  DRAMA 
CALL  MOVEA 
CALL  DRAMA 


><  Ay  Ull  A  Ay  I 

GX-75.  ,GY 
GX+75. ,GY 
GX,GY+75. 
GX, GY- 75. 


DETERMINE  NUMBER  OF  STEPS  TO  BE  OSED 
I STEP* 3 

IF  (RAD.  IT.  1600.)  ISTEP*6 
DRAM  A  CIRCLE  AROOND  THE  SITE 


DO  10  1=3*180. ISTEP 
ANGLE  =  r*0. 034907 
DX*RAE»COS  (ANGLE)  «-GX 
DY=RAE*>SIN  TANGLE)  +GY 
CALL  MOVE  A  DX  +  10.  ,DY) 

10  CALL  CRAMAi’DX-10.  ,DY) 

RSTORN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SPOT  C 

C  THIS  RETURNS  AN  X-Y  PAIR  AND  TMO  COMMAND  VALUES  L1&L2  C 

C  THE  RCOTINE  CREATES  A  DOT  AT  POINT  X,  Y  AND  ASKS  FOR  C 

C  OPERATOR  VERIFICATION  (ASCI I"N "*7 8)  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  S  POT  ( X, Y ,  LI  ,  L2) 

C  READ  THE  CURSOR 
C 

100  CALL  VCURSR(L1  ,X,Y) 

C 

C  MARK  THE  SPOT 
C 

CALL  POINTA  (X,  Y) 


T3 

O' 

?3 

0 

T3 

o: 

T3 

o : 

T3 

o: 

T3 

o : 

T3 

o: 

T3 

o: 

T3 

O' 

T3 

o: 

T3 

o  :• 

T3 

o: 

T3 

o: 

T3 

02 

T3 

o:- 

T3 

o: 

T3 

02 

T3 

o: 

T3 

02 

T3 

02 

T3 

02 

T3 

0  2 

T3 

02 

T3 

02 

T3 

0  2 

T3 

02 

T3 

0  2 

T3 

03 

T3 

02 

T3 

03 

T3 

03 

T3 

02 

T3 

03 

T3 

03 

T3 

03 

T3 

03 

T3 

03 

T3 

03 

T3 

03 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T3 

04 

T  3 

04 

T3 

04 

T3 

04 

T3 

04 

T  3 

04 

T3 

04 

T3 

04 

T3 

04 

T  3 

04 

T  3 

04 
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FILE:  T3 


PORTRAN  A 


NATAL  POSTGRAD  DATE  SCHOOL 


TEFIPY  THE  POINT 

CALL  VCUHSR(L2,A,B) 

DOES  THE  OSSR  ACCEPT  THE  SPOT? 
IF  ( (L2  -EQ.  78)  .OR.  (L2  .  E< 


IF  ( (L2  -EQ.  78)  .OR.  (L2  .  EQ.  110))  GOTO  100 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SCENE  C 

C  THIS  ROUTINE  DRAWS  THE  ATTACK  NAP 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


WHITE  (6, 635) 
READ  (5,*)  HAP 


GOTO 


READ  (5,*)  HAP 

TF^I?Ei6°630) 
READ  (5,*)  ICT 

CLEAR  THE  SCREEN 


CALL  NEWFAG 
CALL  WIN  (BIN  X.MAXX,  18000.,  12000.,  1) 
IF  (HAP  .EQ.  5)  GOTO  210 
REWIND  9 

READ (9,501)  TX,TY 
READ  (9.501)  TX.TY 
CALL  HCVEA  (TX,  TY) 

READ  (9,501)  TX.TY 
IF  (TX.LT.-1)  GOTO  210 
IF  (TX.LT.  0)  GOTO  200 
CALL  DRAWA(TX,TY) 

GOTO  201 

HARK  THE  TARGET 

CALL  GONLOC(TARGX,TARGY,  150. 

CALL  GUNLOC(TARGX,TARGY,  300. 


DRAW 


HARKS  EVERY  2000 


DO  215  1*1 ,8 
IW*2*I 

CALL  EOVEA  (1*2000.,  1000.) 
CALL  CRAW  A 2 000.  ,0.  ) 

CALL  INHODE 
WRITE  (6,502)  IW 
IF  (I  .GE.  6)  GOTO  215 
CALL  HOVEAMOOO.  .1*2000.) 
CALL  DRAWA(0..20Q0.*I) 
CALL  HOVREL  (-30  ,0) 

CALI  ANHODE 
WRITE  (6 ,502)  IW 

CONTINUE  _  „ 

CALL  HOT  1A  (8 00Q.  ,0.) 


T3  04 
T 3  04 
T 3  04 
T 3  04 
T 3  04 
T 3  04 
T3  04 
T3  04 
T3  04 
T3  04 
T3  04 
T3  04 
T3  04 


COMMON /P AR/X  (200)  ,Y  (200)  ,Z  (200)  ,HDG  (200)  ,CA(200)  ,RA  (200)  ,VEL(200) 
COMMON/MN/IB ADD, MlNY, MAXY, HI  NX ,MAXX, MINI , MAXI , MAP 
COHHON/T AR/T AR GX , TAR GY 
DRAW  THE  X, Y  MAP 

THE  ROUTINE  READS  X.Y  PAIRS  FROM  FILE  09.  A  -2.0,0  INDICATES 
END  OF  FILE, -0.5,0  INDICATES  A  MOVE, ALL  OTHER  VALUES  ARE  PO¬ 
SITIVE  AND  RESULT  IN  A  DRAW  TO  THAT  POINT. 

ERASE  THE  SCREEN 
CALL  NEWPAG 

READ  USER  OPTIONS 


T3  04 
T3  04 
T3  04 
T3  04 
T3  04 
T3  04 
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CALL  MOVFEL(0,-20) 

CALL  ANMCDE 
WRITE  (6.503) 

CALL  MOv  EA  (8000.  .0.) 

CALL  MOVFEL(0,-40) 

CALL  ANMCDE 
WRITE (6 , 504) 

DRAW  THE  ALTIMETER 

CALL  WIN  (MIN  1, MAXI, 350. ,2200.,  1) 

DO  220  1*2-20,2 

CALL  HOVE  A  (0.  -I*  100.) 

CALL  CRAW  A  ?  350.  ,  IA1 00  . ) 

CALL  ANMCDE 
WRITE  (6,502)1 
DO  225  1*1*6 

CALL  MOVEA  (1*50.  ,  100.  ) 

CALL  CRAWA  (1*50.  ,0.  ) 

HARK  RESET  POINT  VELOCITY  AND  ALTITUDE  AS  OPERATOR  AID 

IF  (IRQ.NE.O  .AND.  ICT  .  GT.  1 )  C  ALL  PO  INTA  (VEL  (I  CT)  ,  Z  (ICT)  ) 
CALL  MOVEA  (0  .  ,  0.  ) 

CALL  MOVEEL(0,-15) 

CALL  ANMCDE 


WRITE(6,505) 

CALL  MOVEA  <0.  ,0.) 
CALL  MO V BEL (0, -30) 


CALL  ANMCDE 
WRITE ( 6,  506) 

DO  499  IT*1 , 20 
1*2 

IF  (IT  .LE.  6)  1*1 

IF  (IT  .GE.  13)  1  =  3 

CALL  HOVABS  (HKERX  (I)  ,  MKERY  (IT)  ) 

CALL  ANMODE 

GOTO  (1-2 -3, 4, 5, 6, 7, 3, 9, 10, 11,  12, 13, 14,  15,  16,  17,  18,  19,20)  , IT 
WRITE  (6, 60  1) 

GOTO  499 
WRITE  (6.602) 

GOTO  499 
WRITE  (6.603) 

GOTO  499 
WRITE  (6,604) 

GOTO  499 
WRITE  (6,605) 

GOTO  499 
WRITE  (6,606) 

GOTO  499 
WRITE  (6,607) 

GOTO  499 
WRITE  (6,608) 

GOTO  499 
WRITE  (6,609) 

GOTO  49  9 
WRITE  (6,610) 

GOTO  499 
WRITE  (6,61  1) 

GOTO  499 
WRITE  (6,61 2) 

GOTO  499 
WRITE  (6,61 3) 

GOTO  499 
WRITE  (6,61 4) 

GOTO  499 
WRITS  (6,61  5) 

GOTO  499 
WRITS  (6,616) 

GOTO  499 
WRITE  (6,61 7) 

GOTO  4  99 


T3  O' 
T3  0  : 
T3  0' 
T3  0' 
T3  O' 
T3  O' 
?3  0' 
T 3  Of 
T3  Of 
T3  O' 
T3  0' 
T3  Of 
T3  Of 
T3  0C 
T3  0C 
T  3  0 
T3  0 
T  3  0 
T  3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T  3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
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,  unJn<j)un/>i/v^n/)i/'t/H/>ovjnLnaiuu/v-ni-niyi^nini/)ijHjv/iavjK/KnLnLn(nunmjn/iunn(nim/ii rum n<m m  n<  m  m  m m n.  m n« m n 


FILE:  T3 


FORTRAN  A 
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18 

19 

20 

4  99 

501 

5  02 

503 

504 
5  05 
506 

5  07 
601 
602 

603 

604 

605 

6  06 
6  07 
6  08 

609 

610 
6  11 
6  12 
613 
6  14 
615 
6  16 
6  17 
618 

619 

620 
63  0 

6  35 


WRI TE  (6 ,61  8) 
GOTO  49  9 
WRITE (6,61 9) 
GOTO  499 
WRITE  (6,62  0) 
CONTINUE 
RETUPN 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

PORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


♦  •  ,1 2) 

X  &  Y  AXIS  MARKS  IN  100Q"S 
0  DEG.  HEADING  ALONG  X  AXI 
ALT.  IN  100”S') 

VEL  IN  50"  S') 

Mix  llCCEL  EXCEEDED') 

MAX  G  EXCEEDED') 

APPRCH  TCO  LOW' 

ALT  TOO  HIGH') 

STA  LL ' ) 

POP-OP  TOO  LOW') 

BMB  DROP  LOW) 

SMB  DROP  HI') 

TOO  FAR  FM  TGT') 

HDG >5  DEG  TO  TGT') 

FINAL  RU  N<2 .33  SEC') 

NO  HORIZONTAL  MOTION') 

TOO  CLOSE  TO  TGT'  ) 

ENTER  MISSILE  LOCATION*) 
ENTER  MILESTONES') 

ENTER  GON  COORDINATES') 

MAX  LIFT  EXCEEDED*) 

MAX  THRUST  EXCEEDED') 

X  COORDINATE  <  6000' 

DO  YOO  WANT  TO  FIX  TH 
AT  WHICH  POINT 
VILLAGE:  O-NOT 


') 

S') 


E  ERRO 
DO  YOO  WANT 
DRAWN;  1=  VI 


END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SOBROOTINE  WIN 

C  THIS  ROUTINE  DEFINES  A  WINDOW  EXTENDI 

C  THE  HORIZONTAL  AXIS.  AND  FROM  MINT  TO 

C  AXIS.  THE  HORIZONTAL  RANGE  IS  RX,  THE 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

,MX ,R  X, RY,JMP) 


C 

c 

c 


C 

c 

c 


SUBROUTINE  W  IN  (LX. MX ,R X,  R1 
COHHON/M  N/IB ADD, HINY, MAXY 


R: 0=NO, USE  THE  POINT; 1 = YES ' ) 
TO  RESTART') 

LLAGE  DRAWN') 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

c 

NG  FROM  LX  TO  MX  ON  C 
MAXY  ON  THE  VERTICAL  C 
VERTICAL  RANGE  IS  RY  C 
CCCCCCCCCCCCCCCCCCCCCCC 


DEFINE  THE  WINDOW 


CALL 

CALL 


TWINDO  (LX, MX. HINY, MAXY) 
DWINDO(U.  ,RX,0.  ,RY) 


FLASH  THE  DEFINED  WINDOW 


0)  GOTO 
4  ♦6*lB  AUD 
10  1*1. ICT 
MOVABS 
DRWABS 
DRWABS 
DRWABS 
DRWABS 


IP  (JMP  ,E£ 


1  1 


;lx,mint 

LX, MAXY 
'MX,  MAXY 
MX, MI  NY 
LX,  MINT 


ICT 
DO 

CALL 
CALL 
CALL 
CALL 

10  CALL 

1 1  RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  XYZIN 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC 
SUBROUTINE  XYZIN 

COMMON  /LOC/X1.Y1.Z 1, VI, LTP.LTR2 

COMMON/M  N/IB AUD, HINY, MAXY , MINX , MAXX,  MINI  ,MAX1 


CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 


T3 
T  3 
T3 
T3 
T3 
T  3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T  3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T  3 
T3 
T3 
T3 
T  3 
T3 
T3 
T3 
T3 
T  3 
T3 
T3 
T  3 
T3 
T3 
T3 
T  3 
T3 
T  3 
T3 
T  3 
T3 
T3 
T  3 
T  3 
T  3 
T3 
T  3 
T3 
T  3 
T3 
T  3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 


05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

0c 

Ot 

06 

Ot 

0t 

0t 

Ot 

Ot 

0( 

Ot 

0( 

Ot 

Of 

0t 

Of 

0- 

Of 

0 

O' 
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CALL  BELL 
C 

C  IDENTIFY  MAP  AND  GET  X,Y  AND  THE  PIRST  COMMAND 
C 

CALL  WIN  (MIN  X,  MA XX.  18000.  ,  12  000.,  1) 

CALL  S?OT(X1,Y1,LTR,LDM) 

CALL  BELL 
C 

C  IDENTIFY  ALTIMETER  AND  GET  VEL ,  ALT  AND  THE  SECOND  COMMAND 
C 

CALL  WIN  (MINI,  MAXI-350.  ,  2200.,  1) 

CALL  SPOT  (VI  ,Z  1,  LTR2  ,  LDM) 

C 

C  CONVERT  LOWER  CASE  TO  OPPER  CASE 
C 

IF  (LTR  .GT.  96)  LTR=LTR-32 
IF  jLTR2  .GT.  96)  LTR2=LTR2-32 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  BEGIN  C 

CCCCCC.XCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  3EGIN 

COMMON/M N/IBAUD, MIN Y, MAX Y, MI  NX. MAXX, MINI , MAXI, MAP 
COMMON /OPT/IGUN,  IPNCH, IEXT , I S A  M, I MP,  KER 
C 

C  INITIALIZE  THE  GRAPHICS  AND  CLEAR  SCREEN 
C 

CALL  IN  IT 
CALL  NEWFAG 
C 

C  READ  USER  OPTIONS 
C 

SO  WRITE  (6,600) 

READ  (5.*)  IGUN 
WRITE  (6  ,630) 

HEAD  (5,*)  IMP 
WHITE  (6.635) 

READ  (5, *)  KER 
WRITE  (6,625) 

READ  (5,*)  IBAUD 
WBITEJ6 , 640f 
READ  (5,*)  KON 


READ  (5,*)  KON 
IF  (KON  .NE.  0)  CALL  CONCHG 
i  FORMAT  (*  GUNS: 0=DISK  FILE; 1*TERMINAL 
>  FORMAT  i  *  BAUD  RATE:  0*300  BAUD:  1*12 
)  FORMAT  •  MILESTONE  INPUT:  0=DISK  FIL 
3  FORMAT i •  ERROR  CHECKING:  0=NO  CHECKI 
)  FORMAT  •  FLIGHT  S  GAME  PARAMETERS:  3 

COMPUTE  THE  SCREEN  WINDOW  COORDINATES 


:2*PRESET  ') 

00  BAUD*) 

E;  1 *TERHIN AL ' ) 

NG:  1 *CHEC K  FOR  ERRORS') 
=  D£F  AULT ;  1  =  USER  INPUT') 


H AXX=KIN  (5.75) 

MINX=KIN  jO. 25) 

MAX1*M AXX+185 
MIN1=M AXX+10 
MAXY*KI N  (0-375) 

MINY*KIN  (4.042) 

HAXY*7 77-MAX  Y 

MINY=777-MINY 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  GUNCHK 

CC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  GUNCHK  (X.Y.IERR) 

COMMON /TAR/TARGX, TAR GY 
C 


CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

C 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 


T3  0 
T3  O' 
T3  0 
T3  O' 
T3  O' 
T3  O' 
T3  0- 
T3  0« 
T3  O' 
T3  O' 
T3  0' 
T3  0 
T3  O' 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 

"3  o 
T3  6 
T3  C 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  C 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  C 
T3  o 
T3  C 
T3  C 

^3 

T3  C 
T  3  C 


"-itWiiHii.ri  v 
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COMPUTE  DISTANCE 


TARGET 


DIST=SQRT  (  (X-TARGX)  *rt2  +  (Y-TA  RGY)  **  2) 

IF  (DIST  .LT.  3000.)  I2RR=13 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  BLOCK  DATA  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
BLOCX  DATA 

COHMON/ERR/HKSRX  (  3)  .MKSRY  (20) 

COMMON /PAR/X  (200)  .1  (200)  ,Z  (200  )  ,  H  DG  (  200)  ,  CA  (20  0)  ,  R  A  (200)  ,  VEL(200) 
CCHMON/PAR  1/XDOT  (200)  ,YDOT(200  ,ZD0T  (200)  ,MNUM,M3R 
COMHON/PAR2/T  (200)  ,XGUN{7)  .  YGUN(7)  .  Z  GUN  ( 7)  ,  XSA  M  .  YSAM  ,  ZSAM  ,  GR  ( 7) 
COMMON/P AR 3/TMD.ACll FT, CL)lAX,HL,TMAX  .CDO  .CDK.V MAX  1  .VSAX2 
CCHH0S/PAR4/ APPMAX, HTM IN , HTM AX , SPDMI N, GM AX , POP  MI N 
COMMON /TAR/TARGX,TA RGY 


ERROR  MESSAGE  COORDINATES 


DATA  MKERX/640,340, 10/ 

DATA  MKERY/1 60 , 1 40 , 1 20 , 1 00 , 8 0, 60, 160 , 1 40 , 1 20 , 1 00, 8 0 , 60 , 16 0 , 1 4 0 , 

*  120,100, e0,60, 180,40/ 

C  PREDETERMINED  WEAPON  EMPLACEMENT  PARAMETERS 

C 

DATA  XGUN/ 14 30  0..  16  200..  136  00.  .13400  .,  11  300. ,  15600. ,  12800./ 

DATA  YG UN/90 00.. 8200. ,7200. . 80 00. , 9 7 0 0. , 1 0900. , 7 500 . / 

DATA  Z GUN/40 . .40. ,20., 20. ,50. ,90. ,23 ./ 

DATA  XSAH/120O0./, YSAM /6  000./,  ZSAM/5  0./ 

DATA  GR/1000. ,  1O00.  ,  14  00.  ,  14 00., 2 500  .  ,25  00.  ,25  00./ 

C 

C  SIMULATION  PARAMETERS 
C 

DATA  CLHAX/1 ./.WL/100. /, SPDMIN/90 ./, GMAX/6 ./ ,H TMI N/60. / 

DATA  HTM  AX/2  OdO. /, APPM  AX/4  57 ./,TH AX/ 0. 4/,CD0/3.0 1 5/, CDK/0 .  1/ 

DATA  VMAX1/260./,VMAX2/310./.PuPMIN/6000./ 

DATA  TAR GX/1 4000. /,TARGY/7220./ 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  PRESET  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  PRESET 

COMMON /PAR  A  (200)  -Y  (200)  ,Z  (200 )  ,  HD3  (  200)  ,CA  (20  0)  ,RA  (200)  ,  VEL  (200) 
CCHMON/PAR  1/XDOT  (200)  ,YDOT(200j  ,ZDOT  (200)  ,  NNUM  ,  MBR 

,XSAM, YSAM, ZSAM 


(200)  ,Y  (200) 
'XDOT (200) , YD 
T  (200)  .XGONJ 
GUN.IPNCH.IE 
0  (200).  Y *  Of 
:STAB  ( 1000)  ,T 


T  3 

T  3 

T3 

T  3 

T3 

T  3 

T3 

T3 

T3 

T3 

T3 

T  3 

T  3 

T3 

T  3 

T3 

T3 

T  3 

T3 

T3 

T3 

T3 

T  3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T  3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 


DIMENSION  RCSTAB(IOOO)  ,TINK  (10)  T3 

DIMENSION  VAT1  N2  (208)  ,  VAT3  (208),  VAT5  (208)  T3 

VULNERABLE  AREA  TABLE  VS  TYPE  1  AND  2  WEAPONS  T3 

T3 

DATA  VATIN  2/ 2*. 4645, 6*  7.  107,  2*  .6563, 6*5.  55 1 , 2* . 6 968 ,6*5. 57 4 . 2* . 656T3 
18,6*7.  3  57, 2*  .696  8.6*5.  574 ,  2*  .6  568 ,6  *  5. 55  1 . 2* .  5  96  8 ,6*5.  574 . 2* .  6  568 ,  T3 
26*7.357  2*. 6 96 8, 6*5. 574, 2*. 464 5,6*. 7 432. 2*. 556 8, 6* 2. 858,2*. 4645, 6*T3 
33.  298, 2*. 656 8, 6*2.85 8. 2* . 464  5,  6* . 743  2. 2* . 6568, 6* 2 . 858. 2*.  4645, 6*3. T3 
4298,2*. 6568,6* 2. 858, 2* .6 56 8 , 6* 5. 5 51 , 2*. 6 968 .6* 5. 574, 2*.6568,6*7.35T3 
57, 2*. 6 96  8,6*5.  574 ,2*. 6 56 8,6*5.  551,2* .696  8,6*5.  574 , 2* . 6  568 , 6*7.  357, T3 
62*. 6968, 6*5.  574, 2*. 4645, 6*7.  107/  T3 

T3 

VULNERABLE  AREA  TABLE  VS  TYPE  3  WEAPONS  T3 

T3 

DATA  VAT 3/2* 12.54,6*13.47,2*9. 853. 6*  10.5  1, 2*9.  53  9, 6*  1 1 .  15 , 2*  1  2 . 64 ,  T3 
16*14.7  8,2*9.  639,  6*  11. 15,  2*  9. 85  3,  6*10. 51, 2*  9.  639,  6*  11. 15,2*12. 64, 6*T3 
214.78,2*5.63  9,  6*11.  15,8*1.394,  2*4.76  2,6*6.240,  2*5.  342,6*7.  4  32 , 2*4.  T3 
376  2,6*6.240,  8*  1.394,2*4.  76  2,6*6.2  40,  2*5.  34  2,6*  7.  432 , 2*4 . 76  2  ,6*6 . 24T3 
4  0,2*9.  8  5  3,6*  10.51,2*9.  63  9,6*11  .15  ,2*  12 .6  4  ,6*  1 4 . 78 , 2*9.  639 , 6*1  1  .  1 5,  T3 
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5 2*9.  85  3. 6*  10. 5  1,2*9. 63 9, 60 11.  15, 2*1 2 
6  12. 54, 6* 13.47/ 

VULNERABLE  AREA  TABLE  VS  TYPE  5  WEAPONS 

DATA  VAT 5/8* 55. 37. 8* 43. 2 2, 8* 47. 10,8* 
18*62.5  3. 8*47. 1  0,  8*5.76  1,8*27.4  5,3*3  3 
2  33.07,8*27.4  5,  8*5.76  1,8*47.  1  0,  8*6  2.5 
3.53,8*47.10,8*55.37/ 

RADAR  CROSS  SECTION  TABLE 

DATA  RCSTAB/ 19*1000. , 1 9* 100. , 1 9* 1 0. , 
♦19*1000. ,867*0.0/ 

CALL  ERRSET  SUPPRESSES  ANY  POSSIBLE  UND: 
RESULT  FROH  MANIPULATION  OP  SCENARIO  PA 

CALL  ERRSET  (208,50,-1,1,1) 

JAH*0 

CARD  2  TIME  INCREMENT  CALCULATION 
TINC  =  T  (MNU M)  /1 000.  ♦  0.0008 
CARD  6  TIME  INCREMENT  CALCULATIONS 
TINKI  =  0 


DO  10  1=1,9 

TINK(I)  =  TINKI>T  (HNUM) /10 
TINKI  =  LINK (I) 

10  CONTINUE 

/////*****  PUNCH  PROGRAM*****///// 

OPTION  TO  PUNCH  THE  P001  CARD  DECK  OR  MICE-II  CARD 
IP  (IPNCH.EQ.0)  RETURN 


.64,6*14.78,2*9.639,6*11. 15,2*T3 

T3 


T3  O' 
T3  0 
T3  0 
T3  0 


62.53.8*47. 10.8*43. 22 .8*47. 10, T3 
.07,  3* 27. 4  5,  3*5. 76  1,8 *27.  45,8«^T3 
3,8*47. 10,8*43.22,3*47. 10,8*62T3 

T3 


19*1  C.,19*  10.,  19*100.  , 


ERFLOW  PR03LEHS  THAT  MAY 
RAMETERS. 


IP  (IPNCH. 


GO  TO  155 


COMMENCE  PUNCHED  OUTPUT  OF  THE  P001  CARD  DECK. 


THE  JCL  CARES. 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


[18,79 
1  8,80 
18,81 
18,82 

18.83 

18.84 

18.85 

18.86 
18,87 


LEADING  BLANK  DATA  CARD  SIGNIFIES  RADAR  MASKING  ANGLE  OF  ZERO. 

THE  OUTPUT  TITLE  CARD. 

WRITE  (18,90) 

CARD  2 

WRITE  (18,88) 

WRITE  (18,91)  T (MNOM)  , TINC 
THE  2A  CARDS  (MILESTONES)  . 


T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  9 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  C 
T3  0 
T3  0 
T3  7 
T3  3 
T3  C 
T3  " 
T3  C 
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000  DO  17  I*  1,MNUM 

WRITE  (18,92)  T(I)  ,  X  (I)  ,  Y  (I)  ,Z  (I)  ,XD0T  (I)  ,  YDOT  (I)  ,  ZDOT  (I)  ,  HDG  (I) 
1  ,  CAJT)  ,3  A  (I) 

17  contin&e 


WRITE  (18,94) 

CARD  3  (GUN  EMPLACEMENT  CARD). 

WRITE  (18,95)  XGUN(1)  ,  YGUN  (1)  ,  ZGUN(1  ) 
CARD  4  (GUN  TYPE)  . 


WRITE  | 

[18,93) 

WRITE  < 

[1 8,96 j 

CARD  5 

WRITE  < 

[18,89) 

WRITE  j 

!ie,'97j 

CARD  6 

WRITE  1 

[ie,398) 

WRITE  I 

[18,98)  (TINK(I)  ,1*1,9) 

CARD  7  (VULNERABLE  AREA  TABLE  VS 

TYPE 

WRITE  | 

18,399) 

WRITE  i 

18,99) 

WRITE 

18,100)  (VAT1N2  (I)  ,1*1, 

208) 

CARD  12  (EXECUTE  RUN). 
EXTENDED  OUTPUT  OPTION 


WRITE  (18,3101) 

IF  (IEXT..NE.  1)  WRITE  (18,102) 
IP  (IEXT.EQ.lj  WRITE  (l8,10lj 


THE  REMAINDER  OF  THE  CARDS  INTRODUCE  NEW  GUN  LOCATIONS.  GUN  TYPES 
AND  VULNERABLE  AREA  TABLES  TO  BE  EXECUTED  BY  THE  PROGRAM. 

WRITE  (18,94) 

WRITE  (18,95)  XGUN(2)  ,YGUN  (2)  ,  ZGUN  (2  ) 

EXTENDED  OUTPUT  OPTION 


WRITE  (18,3101) 
IF  (IEXT.NE.  1) 
IF  jlEXT.EQ.  1) 
WRITE  (18,94) 
WRITE  18,95)  X 
WRITE  i 1 8,93 j 
WRITE  (18,10  3) 


WRITE  (18,102) 

WRITE  <18,101) 

XGUN  (3)  ,  YGUN  (3)  ,  ZGUN(3) 


EXTENDED  OUTPUT  OPTION 


WRITE  (18,3101) 
IF  (IEXT.NE.  1) 
IF  JIEXT.EQ.  ij 
WRITE  (18,94) 
-  (18',  95)  - 


WRITE 


WRITE 

WRITE 


(18,102) 

(18,101) 


XGUN  (4)  ,  YGUN  (4)  ,  ZGUN  (4  ) 


EXTENDED  OUTPUT  OPTION 
WRITE  (18,3101) 


?3  C 
T3  C 
T3  C 
T3  C 
T3  C 
T3  C 
T3  C 
T3  C 
T3  C 
T3  0 
T3  C 
T3  7 
T3  C 
T3  C 
T3  0 
T3  0 
T3  C 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
13  3 
T3  0 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
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nnn  non  nnnn  nnnn  nnn 


FILE:  T3 


FORTRAN  A 


NAVAL  POSTGRADUATE  SCHOOL 


IF  (I 
IF  jl 
WHITE 
WRITE 
WRITE 
WRITE 


IEXT.NE. 
IEXT.EO. 
E  (18,94 
E  18,95 
E  (ie,93 
E  18,10 


WRITE  ,  . 

WRITE  08/101) 

XGON  (5)  ,  YGUN  (5)  ,  ZGUN(5) 


(18,102) 

(18,101) 


CARD  7  (VULNERABLE  AREA  TABLE  VS  TYPE  3  WEAPONS) 


WRITE 

WRITE 

WRITE 


18,39  9 
18,149 

ie,ioo 


(VAT 3  (I)  ,1*1,208) 


EXTENDED  OUTPUT  OPTION 


WRITE  (18,3101) 
IF  (IEXT  .  NE.  1) 
IF  JlEXT.EQ.  1) 
WRITE  (18,94) 
WRITE  18,95) 
WRITE  (18,93) 
WRITE  |18,107) 


WRITE  ,  ..  , 

WRITE  (18,101) 

XGON  (6)  ,  YGON  (6)  ,  ZGUN(5  ) 


(18,102) 

(18,101) 


EXTENDED  OUTPUT  OPTION 


WRITE  (18,3101) 
IF  (IEXT.NE.  1) 
IF  JlEXT.EQ.  1) 
WRITE  (18,94) 
WRITE  18,95) 
WRITE  18,93) 
WRITE  18,109) 


WRITE 

WRITE 


(18,102) 

(18,101) 


XGUN  (7)  ,  YGUN  (7)  ,  ZG0M(7) 


CARD  7  (VULNERABLE  AREA  TABLE  VS  TYPE  5  WEAPON) 

WRITE  (18,39  9) 

WRITE  (18,15  0) 

WRITE  (18,10  0)  (VAT5  (I)  ,1*1,20  8) 

EXTENDED  OUTPUT  OPTION 


F10. 0,12, 811, P10.0) 

1X,10JF7.1,1*)  ) 

1X,’/« 'I 
1X,8F8.3) 

•//  EX EC  PGM=P1AD') 

•//STEPLIB  DD  DISP*SHR,DSN*MSS.F0559.PIPSAV») 


WRITE  (18,3101) 

IF  (IEXT.NE.  1)  WRITE  (18,102) 
IF  jlEXT.EQ.  ij  WRITE  <18,101) 
WRITE  (18,110) 

22  IF  JlPNCH  .EQ,  1)  RETURN 
FORHAT  STATEMENTS 

40  FORHAT  (3F10.0) 

41  FORHAT  (3F10.0) 

42  FORHAT  i F10. 0 , 12, 81 1 , P 1 0. 0) 

60  FORHAT  i  IX,  1 0JF7.  1,  IX)  ) 

61  FORHAT  IX,'/*') 

68  FORHAT  1X,8F8.3) 

79  FORHAT  ,'•//  EXEC  PGM=P1AD') 

80  FORHAT  i '//STEPLIB  DD  DISP*SH 

81  FORHAT  '//GO. FT07F001  DD  UNI 

82  FORHAT  i '//  DC B* ( REC7H*VBS, LR 

83  FORHAT  '//GO. FT09P001  DD  DUH 

84  FORHAT  i  '//GO. FT06F001  DD  SYSl 

85  FORHAT  '//GO. FT05F001  DD  *•) 

86  FORHAT  '  1 . 1 , 0,0, 0, 0 ') 

87  FORHAT  '01') 

88  FORHAT  *02') 

89  FORHAT  '05') 

90  FORHAT  •  AIRCRAFT  COMBAT  : 

91  FORHAT  i  '0,12,0, ',F7. 2, •  ,10001 

92  FORHAT  10  (F7.  1,  IX)  ) 

93  FORHAT  '04') 

94  FORHAT  *03') 

95  FORHAT  3(1X,F7.0),»  0.0,360.1 


•//GO.  FT07F001  DD  UNIT*SYSDA  ,  SPACE*  (CYL,  (1 ,  1 ,)), ' 
'//  DCB* (RECFH*VBS,LRECL*404 , 3LKSIZE*3236) ') 
'//GO.  FTO9F0Q1  DD  DUHHY') 

•//GO.  FT06F001  DD  SYS0UT*A') 

'//GO. FT05F001  DD  *•) 

•05') 

•  AIRCRAFT  COMBAT  SURVIVABILITY  SCENARIO') 

10  (F7 .  1,14) ) 

•04*  ) 

•03'  ) 

3  (IX  ,  F7.  0)  ,  '  0.0,360.0') 


T3  O' 
T  3  0 
T3  0' 
T3  O' 
T3  0 
T3  0 
T3  0 
T  3  0 
T3  0 
T  3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
?3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  0 
T3  C 
T3  0 
T3  1 
T3  ' 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
73  1 
T3  1 


nno  non  nnn  nnnn  non  non  noon 


PILE:  T3 


FORTRAN  A  NATAL  POSTGRADUATE  SCHOOL 


96 

97 

398 

98 

399 

99 
100 

3101 

101 

102 

103 

104 

105 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
PORMAT 
FORMAT 
•  1.0*  ,( 
•1000.1 
FORMAT 
FORMAT  i 
PORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
CONTINU] 


'0,1, 1,1. 1,1,0. 0,50.* 

•1*1,  1 .0*) 

•ol' ) 

Ik?  S9dX.F7.3M 

•  VULNERABLE  AREA  TABLE  VS  TYPE  1  AND  2  WEAPONS') 
8F8.  3) 

•12'  ) 

•1,1,1,  1,1, 1,1') 

•0,0, 0,0,1,  1,1  • 

•0,2,1,1,1,1,0.0,50.0') 

•0.3,4 .4. 1, 1 ,0.0,50.0'  ) 

•14*, 13.'  5  0  1.0',7X.P6.1  , 4X . • 1 . 0E-06 • , 6 X, • 1 • , 1 IX . 

X,I5^F1&.2  , /* GEND • , /, 3X, ' 1 9  7  90.0  180.0 


m  f  L  I  V  •  $  f  V3UHL/  f  /  I  JAf 

F10.3,/,8F10.  3./.3P10.3) 
0.3,3 .4 , 1,1 ,0.0.50.0* ) 
13', 13.15,'  0.35') 
0,5.3,2,1,1,0.0,50.0') 

/*'  f _ _ _ 


VULNERABLE  AREA  TABLE  VS  TYPE 
VULNERABLE  AREA  TABLE  VS  TYPE 


WEAPONS') 

WEAPON') 


COMMENCE  FUNCHED  OUTPUT  OF  THE  MICE- II  CARD  DECK 

CHECK  FOR  VALID  MISSILE  DESIGNATION  NUMBER  FOR  MICE  II 
IF(ISAH.LE.7.AND.ISAM.GE.1)  GO  TO  156 
RETURN 

THE  JCL  CARDS 


156  WRITE 
WRITE 
WRITE 
WRITE 


[17,200) 
17,201 
17,20  2 
17,203 


THE  OUTPUT  TITLE  CARDS 

WRITE  ( 17, 20  4) 

WRITE  (17,20  5) 

THE  PROBLEM  BUN  INPUT  CARDS,  CHECKING  FOR  TYPE  OF  MISSILE 
TO  INPUT  TO  MICE  II 


WRITE  (17,206) 
IF  (ISAM.  EQ.1) 
IF i ISAM . EQ.2 
IF  ISAM. EQ.3 
IF  ISAM. EQ.4 
IF (ISAM. EQ.5 
IF  ISAM. EQ.6 
IF  I  ISAM . EQ.7 


WRITE (17,250) UP  10 
WRITE  17,251 
WRITE i 17,252 
WRITE i 17,253 
WRITE  i  17,254 
WRITE  17,255 
WRITE  17,256 


THE  PSSK  CALCULATION  CARDS 


WRITE  (17,20  8) 
WRITE  (17,20  9) 


THE  RADAR  CROSS  SECTION  TABLE 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


17,210) 
17,21  1 

17.21 2 

17.213 

17.214 


(RCSTAB  (I)  ,1*1,  133) 


THE  SIMULATION  TIME  PARAMETERS 

WRITE  (17,215) 

WRITE  (17,216) 


T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T  3  1 
T  3  1 
T3  1 
T  3  1 
T3  1 
T  3  1 
T  3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
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nr>n  o  non  nno  non  nn 


FILE:  T3 


FORTRAN 


NAVAL  POSTGRADUATE  SCHOOL 


TEE  MISSLE  LAUNCHER  LOCATION 

FTFAC=3. 28084 
17,217 


is  A^ET^AC 


WRITE 
XFSAM* 

YFSAM*YSAM*FTFAC 
ZFSAH*ZSAMftFTFAC 

WRITE  (17,218)  XFSA«,YFSAM,ZFS  AM 


THE  TARGET  TRAJECTORY 

WRITE  (17,219) 

WRITE  (17,220)  MNUM 

THE  MILESTONE  CARDS 

DO  160  I  *  1 ,51  NU  M 
X<I)  =*X(I)  rtFTF AC 
Y  (I)  *Y  (I)  *FTFAC 
Z?I)  *Z  (I)*FTFAC 
VEL  ( I )  * Vc  L  ( I)  *  FT F  AC 

WRlfE'  (17 ,221)  T  (I)  ,X(I)  ,Y(I)  ,Z(I)  ,VEL(I)  ,: 
160  CONTINUE 

END  OF  PUNCHED  CARDS 

WRITE  (17,222) 

170  RETURN 

/////••***  FORMAT  STATEMENTS  a****///// 


A  (I)  ,  P  A  (I)  ,  HDG  (I) 


200 
201 
202 
20  3 
20« 

205 

206 
208 

209 

210 
211 
212 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
1 ' 60 
26X. 

213  FORMAT 
17x,'90. 

214  FORMAT 

215  FORMAT 

216  FORMAT 
I'O.M 

217  FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
PORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


) 


•//  EXEC  PGM*MICE  , REGI ON= 180  K * ) 

•//STEPLIB  DD  DSN=HSS. F0559.  MICESAV,DISP=SHR 
'//FT06F001  DD  SYSOOT=A') 

•//FT05F001  DD  7') 

•01*) 

•AE  3; 

'02* ' 

•06') 

9X.' O' ,8X,' 0.' ,9X,*0' ,4X,'0‘ ,4X,'0' ,8X,*0. • ,SX,'0. 


52  51  7*«*«»SURVIVABILITY  SCENARIO???***  SAM  ENCOUNTER') 


) 


MAT  (7X,‘ 23. ' -3X- • 19* ,41, '7',4X,' 1') 

MAT  (8X,»  0.  *.7X,M0.'  ,7X,'20.'  .7X  ,' 30 . • ,7X. ' 40.  '  .7X,  •  5  0 .  ' .  7X . 

7X,  '80.  *.7X.»  90.  «,6X,  '100.'  ,5X.  '  110.  •  -6X.  •  12  0.  * , 
•130. './. 6X.» 140.'  6X.' 150.  '  ,6X. '  160' ,6X, '170. ',6X.'180.') 

MAT  I6Y.'  -4ft.  '  6T. • -60. •  67  .'-30.  »8X'0'7X'30.».7X»60.» 


If 

7F10 


•09* 
7X 


r-i 


A  |  Itv*  f  V  A<  I  «/  V/«  /U  A  f  lb0*  f  6Xf  1 70«  * 

90. • ,6X,'-60.' ,6X,'-30. ' ,8X, 1 0. ' , 7X , • 30. * ,7X , • 60 . 

2  ,/,  7F 1 0.  2,/,5F  10 .2) 

.  5* ,7X, '0.1 • ,7X,*  8.0',7X, '0.0',8X, • 0. • ,7X, '3  0. • , 8X, 


218 

219 

220 
221 
222 

250 

251 

252 

253 

254 

255 

256 


•IT) 

2X.F8.  2,  2F10.2) 

•12' ) 

9X,'  1*  ,2X,I3,4X,'  1  ',4X  .'  0» .  8  X.  '0 .  '  ,9  X,  •  0.  '  ,  8X , '  0.  ' ) 
F7.1.4F10.1, 3F6. 1 , 4x  , ' 0.' ,4X ,‘0.  •) 

•20') 

9X,'1',4X,'1',4X,'4',4X,,1«,3X,,10',4X,'1',4X,'0'! 
9X ,' 2' ,4X,' 1 ',4X,'4' ,4X,'  1', 3X,'10',4X,'  1* ,4X,'0' 
9X,»3',4X,» 1',4X,»4»,4X,' 1', 3X,' 10',4X,' 1',4X, 'O' 
9X,'4',4X,*1',4X,«4',4X,'1*,3X,»10',4X,'1',4X,,0' 
9X,' 5* ,4X,' 1 ', 4X,'4* ,4X,» 1' , 3X,» 10',4X,' 1 • ,4X, '0* 
9X,'6',4X,'1',4X,'4',4X,'1',3X,'10',4X,'1',4X,'0' 
i9X,'7',4X,'1',4X,'4*,4X,  '  1',3X,'  10', 4X,'  1',4X,'0' 


END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCC  ELFIN  CCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  ELFIN  (LAST) 


T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T  3  1 
T  3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  * 
T3  - 
T  3  ' 
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FILE:  T3 


FORTRAN  A 


NAVAL  POSTGRADUATE  SCHOOL 


CCMMON/O  ET/IGU N. IPNCH, IE XT, ISAM, IMP,  KER 
COMMON/HN/  I  BAUD  ,  MINY,  MA  XT  ,  MIN  X,M  AXX  ,  MINI  ,  MAXI 

WRITE  PROMPT 

CALL  MOVABS(MINX,MAXT*5) 

CALL  ANMCDE 
WRITE  (6 .590) 

ICT*4*8*IBA0D 


DO  10  1*1.  ICT 
CALL  EELL 

CALL  MOVABS  (MINX,  MAXT  +  5) 
CALL  CRWA  BS  (HI NX *400, MAS 
CALL  SCUESR(L1,I, J) 


CLOSE  GRAPHICS  ROUTINES 


CALL  NEWPAG 
CALL  FIN 

OLD  (LAST==0)  0 

IF  (LAST  .EQ. 

REQUEST  USER  <3 


(LAST3 


FLIGHT  PATH? 


GOTO 


USER  OUTPUT  OPTIONS 


WRITE 
READ  (! 


IF 
LAS 
WRITE 
WRITE 
READ  (' 


(LaSt.GE. 2  .OR.  LAST.LT.O)  GO  TO 
T=1  ♦  8  2* LAST 


E  ( 6 , 6 1 0) 

2j6,620 

(5,*)IPN< 


>  MILESTONES  CAME  FROM  DISK,  RETURN  END  OF  FILE  MARKER 

IF  (LAST  .EQ.  01  LAST*83 
IF  (IPNCH  .EQ.  01  RETURN 
IF  (IPNCH. EQ.  2)  GOTO  100 
WRITE  16, 6  30) 

READ  (5,*)  IEXT 
IF  (IPNCH  .EQ.  1)  RETURN 
WRITE (6, 640) 

READ  (5,rt)  ISAM 


IF 

RETURN 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

END 


iia-i 


RETURN 


(ISAM 


GOTO 


•  ♦HIT  ANT  KET  FOR  OUTPUT  OPTION  SELECTION*) 

•  ARE  TOO  FINISHED  WITH  THIS  FLIGHTPATH:  0  =  NO;  1=TES') 
»  SCREEN  OUTPUT:  0*NO  OUTPUT:  1*OUTPUT  DESIRED*) 

»  OUTPUT  FILE:  O-NO  OUTPUT;  1  *P001  FILE  ONLT ' ) 

»  2*  MICE  FILE  ONLT;  3*P001  5  MICE  FILES') 

•  EXTENDED  OUTPUT:  0*NOT  WANTED;  1*EXTENDED  OUTPUT*) 

•  MISSILE  TTPE  BETWEEN  1  AND  7') 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCCC  SAMCHK  CCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCC CC  CCCCC C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CC CCCCCCCCCC CC CCCC CCCCCCCC CCCC CCCC CCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 
SUBROUTINE  SAMCHK  (X,IERR)  T3 

IERR-0  T3 

IF  (X  .GE.  6000.)  RETURN  T3 

CALL  ERRMK  (13)  T3 

IERR* 1  T3 

RETURN  T3 

END  T3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCC C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 
CCCC CCCCCCCC CC CCCC CCCCCCCCCC CCCCCCCC CCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT  3 


CCCCC 


AIMPT 


CCCCCT3  1 


CCCCCCCCCCCCC CCCCC CCCCCCCC CCCCCCCC CCCCCCCC  CCCC CCCCCC CCCCCCCCCCCCCCCCCCCCT  3 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC CCCCCC CCCC CCCCCCCCCCCCCCCCCCCCCCCCCCT3 
SUBROUTINE  AIMPT  (I)  T3 
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FILE:  T3 


FOB  THAN  A  NAVAL  POSTGRAD  DATE  SCHOOL 


COMMON/TA  R/TARGX,TARGT  T3  1 

COHMON/PAR/X  (200)  ,  Y  (200)  T3  1 

C  T  3  1 

C  HOVE  TO  COBRENT  HILESTONE  COORDINATES  T3  1 

C  T  3  1 

CALL  HOVEA  (X(I)  ,1  (I))  T3  1 

C  T3  1 

C  DRAW  DASHIE  LINE  TO  TARGET  T3  1 

C  T3  1 

CALL  CASH A (TARGX, TARG  T, 1)  T3  1 

RETORN  T3  1 

END  T  3  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3  1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3  1 
CCCCC  CONCHG  CCCCCT3  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC,'T3  1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T3  1 

SOEROOTINE  CONCHG  T3  1 

COMMON/PAR3/TMD, ACLIFT.CLMAX, WL.TMAX ,CD0 ,CDK, VMAX1 ,VMAX2  T3  1 

CCMMON/P AR4/ APPMAX. HTMIN, HTMAX ,sPDMI N, GM  AX , POP  MIN  T3  1 

COMMON /TAR/TARGX,TARGY  T3  1 

CALL  NEMFAG  T3  1 

C  T3  1 

C  WRITE  INSTRUCTIONS  T3  1 

C  T3  1 

30  WRITE (6, 100  T3  1 

WRITE  6,  105  T3  1 

WRITE! 6,  110  T3  1 

WRITE  6,115  T3  1 

WRITE(6 , 120  T3  1 

WRITE  6,125  T3  1 

WRITE! 6,  130  T3  1 

WRITE  6,135  T3  1 

WRITE! 6. 140  T3  1 

READ(5,*)K  T3  1 

IF  UK  .LB.  0)  .OR.  (K  .GT.  17))  GO  TO  30  T3  1 

„  GO  1(3(200,2.3,4,5,6,1,8,9,10,1  1,12,  1  3,  14,15,  16,17)  ,K  T3  1 

2  WRITE  (6, 20  2)  T3  1 

READ  (5.*)  CLMAX  T3  1 

GO  TO  30  T3  1 

3  WRITS  (6,20  3)  T3  1 

READ  (5.*)  WL  T3  1 

GO  TO  30  T3  1 

4  WRITE  (6,204)  T3  1 

REAE  (5.*)  SPDMIN  T3  1 

GO  TO  30  T3  1 

5  WRITE  (6, 20  5)  T3  1 

REAE(5.ft)  GMAX  T3  1 

GO  Td  SO  T3  1 

6  WRITE  (6,206)  T3  1 

READ  (5.*)  HTMIN  T3  1 

GO  Td  SO  T3  1 

7  WRITE  (6, 20  7)  T3  1 

READ  (5.*)  HTMAX  T3  1 

GO  Td  SO  T3  1 

8  WRITE  (6,20  8)  T3  1 

REAE  (5.*  POPMIN  T3  1 

GO  TO  SO  T3  1 

9  WRITE  (6,209)  T3  1 

REAEj5.ft)  APPMAX  T3  1 

GO  Td  SO  T3  1 

10  WRITE  (6,210)  T3  1 

READ  (5.*)  TMAX  T3  1 

GO  Td  SO  T3  1 

11  WRITE  (6, 211)  T3  1 

READJ5.*) CDO  T3  1 

GO  Td  SO  T3  1 

12  WRITE  (6,21 2)  T3  1 

REAE  (5.*)  CDK  T3  1 

GO  TO  SO  T3  1 

13  WRITE  <6,21  3)  T3  1 

REAE  (5,  ft)  VHAX1  T3  1 


SOEROOTINE  CONCHG 

COMMON/PAR3/TMD, ACLIFT.CLMAX, WL.TMAX ,CD0 , CDK, V HA X 1 , VM AX2 
C0HM0N/PAR4/ APPH AX. HTMIN, HTMAX, SPDMIN, GMAX, POP  MIN 
COMMON /TAR/TARGX,TARGY 
CALL  NEWPAG 

WRITE  INSTRUCTIONS 

)  WRITE (6, 100 
WRITE  6, 105 
WRITE! 6, 110 
WRITE  6,115 
WRITE(6, 120 
WRITE  6, 125 
WRITE! 6, 130 
WRITE  6,135 


WRITE  (6, 140) 

READ  (5,*)  K 

IF  t(K  .IE.  0)  .OR.  (K  .GT.  17))  GO  TO  30 

GOWRI•^E^6'2<52)'4'5'6'^#8'9'10'11,12'13,14'15,16,17,  'K 
READJ[5%)  CLMAX 


GO  TO  30 
WRITE  (6,  20  3) 

READ  (5.*)  WL 
GO  TO  SO 
WRITE  (6,20  4) 

REAE  (5.*)  SPDMIN 
GO  TO  SO 
WRITE  (6, 20  5) 

R EAE  (5. ft)  GMAX 
GO  id  So 
WRITE  (6,206) 

REAE  (5.*)  HTMIN 

GO  id  So 
WRITE  (6,  20  7) 

REAE  (5.*)  HTMAX 
GO  Td  So 
WRITE  (6,20  8) 

REAE  (5.«  POPMIN 
GO  TO  SO 
WRITE  (6,209) 

R  EAE  (5. ft)  APPMAX 

GO  id  So 

WRITE  (6,21  0) 

READ  (5, *)  TMAX 
GO  id  So 
WRITE  (6,  21  1) 
READJ5.*) CDO 
GO  id  So 
WRITE  (6,21  2) 

REAE  (5. n)  CDK 
GO  TO  SO 


TMAX 


WRITE  (6,21  3) 
REAE  (5,  ft) 


VHAX1 
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14 

15 

16 


GO  TO  3 
WRITE  (6,21 
R  EA  E  (5, 
30  TO  3 
WRITS  (6,21 
REAE  (5. 
GO  TO  3 


0 

*) VMAX2 
0 

*>)  TARGX,TARGY 
0 


READ  NEW  PARAMETER  VALUES  FROM  THE  DISK 


REWIND  16 
READ  (1 
REAE  (1 
READ  (1 
GO  TO  3 


6. 300)  CLMAX, WL,SPD MI N,3MAX, HTMIN, HTMAX 

6.300)  POPMIN, APPMAX.TMAX ,CD0 ,CDK, V  MAX  1 

6. 300)  VMAX2, TARGX, TARGY 
0 


WRITE  PARAMETER  VALOES  TO  THE  TERMINAL 


17 


WRITE (6,25 
WRITE  (6 
WRITE  (6 
WRITE  6 
WRITEi  6 
WRITE  | '6 
GO  TO  3 


?ioo 

:23oV 
,260 
.3  00 
0 


CLMAX,WL,SPDMIN, GMA X, HTMIN, HTMAX 
POPMIN,  APPMAX  ,TM  AX,  CDO,  CDK,  7M  AX  1 
VHAX2,TARGX,T ARGY 


SAVE  PARAMETER  VALOES  ON  DISK  AND  RETORN  TO  CALLING  ROOTINE 


200 


1  00 
105 
1  10 
115 
120 
125 

130 
135 
140 
2  02 
203 
2  04 
2  05 
206 

207 

208 

209 

210 
211 
212 

213 

214 

215 
250 
255 

260 

300 


REWIND  16 
WRITE 
WRITE 
WRITE 
RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

*  LIFT') 
FORMAT  ' 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

•  MAX  SPl) 
FORMAT 
FORMAT 


16. 300)  CLMAX. WL,SPDMIN,GM  AX, HTMIN, HTMAX 
16,  300)POPMIN, APPMAX.TMAX  ,CD0  ,CDK,VMAX1 

16.300)  VMAX2, TARGX, TARGY 


SELECT  PARAMETER  TO  BE  Ch\h 
2=11  AX  LIFT  COEFF;  3=W ING  LO 
5=MAX  G  FORCE;  6=MIN  ALT;  7 
8=D ISTANCE  TO  TARGET  BEFORE 
9=8 AX  APPROACH  ALT;  10=MAX 


12=  LIFT  DRAG  CONSTANT:  1 3=8 
14=  MAX  SPD  W/O  BOMB:  15=TAR 
16= RE AD  PARAMETER  FILE;  17= 
ENTER  MAX  LIFT  COEFFICIENT* 
ENTER  WING  LOADING*) 

ENTER  STALL  SPEED') 

ENTER  MAX  G  FORCE  ALLOWED') 
ENTER  MINIMUM  ALTITUDE*) 
ENTER  MAXIMUM  ALTITUDE  (LES 
ENTER  MINIMUM  DISTANCE  TO  T 
ENTER  MAXIMUM  APPROACH  A  LTI 
ENTER  MAX  THRUST  TO  WEIGHT 
ENTER  DRAG  COEFFICIENT  FOR 
ENTER  LIFT  DRAG  CONSTANT') 
ENTER  MAX  SPEED  CARRYING  A 
ENTER  MAX  SPEED  AFTER  BOMB 
ENTER  TARGET  X  AND  T  COORDI 
MAX  CL  WING  LD  STALL  SPD 
POP-UP  DIST  APPR.HT.  MAX 
WITH  BOMB') 

•  MAX  SPD  W/O  BOMB  TARGET 
6F12.4) 

ENE 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  ERRCHK 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  ERRCHK(IERR) 

COMMON/P  AR/X  (200)  .y7200[  ,Z  (200)  ,HDG  { 
CCHHON/PAR1/XDOT(200)  ,  YDOT(200)  ,ZDOT 
COMMON/P AR2/T  (200) 


GED:  1  =  NO  MORE  CHANGES') 
ADING;  4=STALL  SPEED') 

=MAX  ALT  (<2200  M TR )  ' ) 

POPUP  ALLOWED') 

T/W  RATIO;  1 1=DR AG  CDEF.  W/O 

AX  SPD  WITH  BOMB') 

GET  COORDINATES  ') 

LIST  PARAMETERS') 


S  THAN  2000  METERS)') 

ARGET  BEFORE  POP-UP  ALLOWED') 
TUDE') 

ALLOWED* ) 

ZERO  LIFT') 

BOMB' ) 

IS  RELEASED*  ) 

NATES  ' ) 

MAX  G  MIN. HT.  MAX.HT.') 
THRUST  C DO  DRAG  CONSTANT 


X  COORD. 


TARGET  Y  COORD.') 


CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

C 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

200)  ,CA  (200)  ,RA  (200)  ,  VEL(200) 
(200)  ,  MNUM  ,  MBR 


T  3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T  3  1 
T  3 
T  3 
T3 
T3 
T  3 
T3 
T  3  1 
T3  1 
T  3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T  3 
T3 
T3 
T3 
T3 


T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T  3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
T3  1 
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15 


30 

35 

40 

5 


51 

52 

53 


58 

60 

65 


COMMON /T  AR/T  ARGX ,  TARGY 

C0MM0N/PAR3/TMD, ACLIFT.CLMAX.WL.TMAX -CD0  .  CDK 
CCMMON/P  AR4/ APPMAX,  HTMIN, HTMAX , SPDSI  N, GM AX,  POP  WIN 
DATA  TMSAV/-1./ 

DX=TARG  X-X  (M  NU  M) 

DY*TARG  Y-Y  JM  NUM) 

DIST=SQRT  (DX«1*2  +  DY**2) 

INITIALIZE  POPALT  AND  TMSAV 

IP  (  (M  NU  H.  NE  .  2)  .AND.  (TMSAV. NE.-1.))  GO  TO  15 
POPALT=0. 

TMSAV*TMAX 

IF  (NBR.  EC.  0  .AND.  T  MAX . NE.  TMS  A  V)  TMAX=TMSAV 
CALL  ERRMK  (2  2) 

IP  (MBR  .GE.  1)  GOTO  30 

IP  ((DIST  .IT.  POPMIN)  .OR.  (Z(MNOH)  .LT.  APPMAX)  )  GOTO  30 
IERR  *4 
FETORN 

IF  (DIST. LE.  POPMIN  .AND.  Z  (H NO M)  . GT.  POPA LT)  POP  ALT*Z  ( MNOM) 
IP(Z^HNOM)  .GE.  HTMIN)  GOTO  40 

~ RETORN 

IF  (Z(MNOH)  .LE.  HT MAX)  GOTO  45 
IEHR*4 
RETORN 

IF  (VEL  (MNOM)  .GE.  SPDMIN)  GOTO  50 


RETORN 

IF  (MNOM  .EQ.  2)  RETORN 
IF  (ACL I FT  . LE.  GMAX)  GO  TO  51 
IERR*  1 
RETORN 

COMPOTE  DRAG  AND  LIFT  FORCES 

RH0*0.  0256*EXP  (-0.103*  (Z  (MNOM)  /1000.  )) 
IF  (Z (MNOM)  .GE.  10670.)  GO  TO  52 

RH 0*0.  0079  3*EXP  (-0. 156*  (ZfHNOMI  " 
CL*2*ACLIFT/  (RHO*  (VEL  (MNOH)  **2 } /WL) 

IF  (CL  .LE.  CLMAX)  GO  TO  53 
IERR*17 
RETOFN 

DH*(  (CDO  ♦CDKf'CL*CL)  /CL)  *ACLIFT 
TH=THD*DH 

IF  (JTW  .LE.  TMAX)  -AND.  (TV  .  GE.  0 


10670.) /1300.) 


IF 
DW 
IF 
IF 

IF  (MNOM 


TV  .GT.  TMAX)  IERR*18 
RHO*  (VEL  (MNOM)** 2 
TMD+DH  .LE.  0)  IE 
IERR  .NE.  0)  RETORN 
.NE.  MBR)  RETURN 


))  GOTO  55 
|VWL)  *  (0.05  ♦CDO+CDK*  (CL**2)  )  /2. 


EVALOATE  BOMBING  RON 


DT*T(HNOM) -T  (t 

TGTHDG* AT AN2  (DY,  DX)  *57.29578 
IF  (TGTHDG  .LT.  0.)  TGTHDG*TGTHDG  +  36  0. 
DX=X  (MNOM)  -  X  (MNOM-  1 ) 

DY*YlMNOM)-  YiHNOH-^ 


ACHDG* AT AN 2 (D? ,DX) 


29578 


IF  (  ACHDG  . LT.  0.)  ACHDG* ACHDG+  360 
HDGLMT* AES  (T GT HDG-ACHDG) 


IF 


IF 


IF 


IF 


(POPALT 
IERR*6 
RETURN 

RETURN 
(Z  (MNOM)  . 
IERR*8 
FETORN 
(DIST  .LE, 


i  GE.  1000. )  GOTO  58 
.GE.  100.)  GOTO  60 


LE.  2000.)  GOTO  6  5 


2000.)  GOTO  75 
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T3 
T3 
T3 
T3 
T3 
73 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T  3 
T3 
T  3 
T3 
T  3 
T  3 
T3 
T  3 
T3 
T3 
T3 
T3 
T3 
T3 
T  3 
T3 
T3 
T3 
T3 
T3 
T3 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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IERR=9 

T  3 

1 

RETURN 

T3 

1 

75 

IP  (HDGLHT  .  LE.  5.)  GOTO  80 

T  3 

1 

lER  R  *  10 

T3 

1 

RETURN 

T3 

1 

30 

IF  (DT  .GE.  2.33)  GOTO  85 

T  3 

1 

IERR-11 

T3 

1 

85 

TMAX*1 . 2*THA  X 

T3 

- 1 

RETURN 

T3 

1 

END 

T3 

1 
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APPENDIX  C 


KB  PIP  MODIFIED  MODULES 


COMBOS  /LOC/X1.Y1 .21,71.  LTR,LTR2 

COMHON/HN/  I  BAUD, MINI.  MA  XY, MIN  X,M AXX , MIN  1 , MAXI 

COMMON/P  AR/X  (200)  .Y  (200)  .2  (2  00 )  ,  HDG  ( 200)  ,CA(200)  ,  R  A  (200)  ,  V 

COMMON /PAR  1/XDOT  (200)  .  YDOT  (2  00)  ,Z  DOT  (200)  ,  MNUM  ,  MBR 

COMMON/P  AR2/T  (200), XGUN  (7)  , YGUN  (7) ,ZGUN(7)  ,  XSAM, YSAM,ZSAM, 

COMMON /OET/I GO N.IPNCH.IEXT, ISAM, IMP,  KEF 

COMMON /TAR/T  ARGX ,TARGi 


VEL (200) 
#  OR  ( 7) 


CALL  ERRS  ET  SUPPRESSES  ANY  POSSIBLE  UNDERFLOW  PROBLEMS  THAI  MAY 
RESULT  FROM  MANIPULATION  OF  SCENARIO  PARAMETERS. 

CALL  ERRSET  (208,50,-1,1,1) 

MBR*0 
MNUH*0 
CALL  BEGIN 
CALL  SCENE  (0,0) 

IF  (IG ON  .NE.  1)  GOTO  250 


GOTO  25  0 


ACCEPT  USER  INPUT  OF  GUN  SITES 

REWIND  10 
CALL  ERR MK  (1  6) 

LTR=0 

LTR2=0 

DO  212  1*1,6 
IERR*0 

CALL  XY2IN  (0) 

XGUN  (I)  *X1 
YGUN  (I)  *Y  1 
ZGUNjl)  *Z1 

IF(ZT.GT.  1000.)  STOP 

IF  (I  .GE.  5)  CALL  GUNCHK  (X  1,Y1,I  ERR) 
IF  (I ERR  .EQ.  0)  GOTO  212 
CALL  ERRMR(IERR) 

GOTO  211 

WRITE  (10 ,501)  XI  ,Y1  ,Z1 
CALL  ERRHK(ltt) 

CALL  XYZIN(O) 

XS AH*  X 1 
YSAM*Y1 
ZSAM*Z1 

IFjZI.GT.  1000.)  STOP 
CALL  SAHCHK  (XI  .IERR) 

IF  (IERR  .NE.  0)  GOTO  220 
WRITE  (10,  501)X1,Y1,Z1 


IGUN*2*** 

(IGUN  .NE 
252  1*1,6 


READ  GUN  SITES  FROM  DATA  FILE 
0)  GO  TO  260 


A.  J4,  X  —  f 

READ (1 0.50 1) XGUN (II , YGUN  (I) , ZGUN (I) 
READ(1u ,  5u1)  ISAM,iSaH,ZSAM 
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DRAW  GUN  SITES  AND  ENGAGEMENT  CIRCLES 
5  DO  265  1*1,7 

>  CALL  GUnLOC  (XGON  (I)  ,YGOtt(I)  ,G R  (I)  ) 

CALL  GONLOC  (XS  AM, ISAM, 150.) 

THIS  SECTION  ACCEPTS  THE  FLIGHT  MILESTONES 

FTFAC=  3. 280  84 
DGPAC=57. 29578 
CALL  ERRHK( 15) 

REWIND  11 
)  MNUM=MNUM+1 

READ  MILESTONES  FROM  THE  DISK 

l  IF  (IMP  .NE.  0}  GOTO  305 

READ  (  11,6  25)  X  (MNOM)  .1  (MNOM)  -Z(MNUM)  ,7SL  (MNO  M)  ,  LTR 

IF  (X  (MNOM)  .  LE.  0.1)  GOTO  3 02 

IF  jLTR  .  EQ.  1)  IMP  =  1 

LTR2=LTR 

GOTO  308 

READ  MILESTONES  FROM  THE  TERMINAL 

i  CALL  XYZIN(I) 

X  (MNOM)  *X1 
Y  (MNOM)  *Y1 
Z  (MNOM)  *Z1 

COMPOTE  FLIGHT  PARAMETERS  AND  CHECK  FOR  ERRORS  DR  USER  COMMANDS 
7  EL  (MNOM)  =V  1 

)  IF  (MNUN.EQ.  1  .AND.  LTR.  EQ.  83)  STOP 
IF  jMNOM.EQ.1)  GOTO  300 
IERfiaO 

CALL  7ALSET  (I ERR) 

IF  (  (  (LTR.  EQ  .  8  2)  .OR.  (LTR2.  EQ.  82) )  .  AND.  ( IMP.  NE.  0)  '  GOTO  350 
IF ( i LTR  .EQ.  66)  . OR.  (LTR2.  EQ.  65))  MBR=MNOM 
IF ( i LTR  .EQ.  83)  .OR.  (LTR2.  EQ.  83))  GOTO  370 
IF  iIERR  .20.  0  )  CALL  ERRCHK  (IERR) 

IF  ((IEBR«KER.EQ.O) .AND. (IERR  .NE.  12))GOTO  310 
CALL  ERHMK(IERR) 

IF  (IMP  .NE.  0)  GO  TO  305 


IF  (IMP  .NE.  ( 
CALL  ERRMK (20) 
READ  (5.*)  ICOR 
IF  (ICOR.  EQ.1) 
STONE  ACCEPTS 


IF  (ICOR. EQ.1)  GO  TO  305 
MILESTONE  ACCEPTED,  RESTART  THE  SEQUENCE 


CALL  PTHPLT 

IF  (LTR.EQ.65  .OR.  LTR2.EQ.65)  CALL  AIMPT  (3  NOM) 
GOTO  300 

THIS  SECTION  RESETS  THE  DATA 

CALL  SCENE( 1 , ICT) 

REWIND  19 

LTR*0 

LTR2*0 

IF (NBR  .GT.  ICT)  MBR*0 
COMPLETE  RESTART 


IF  (ICT  .GT.  1)  GOTO  352 
HNuM*0 
GOTO  260 

IF  ( (ICT  .3  E.  MNOM)  .AND 
DO  355  MNOM  =2 ,ICT 
CALL  ETHPLT 


T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  3 
T 1  0 
?1  0 
T1  0 
T1  0 

ti  a 

T1  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  0 
TI  C 
TI  C 
TI  0 
TI  C 
TI  C 
TI  C 
TI  C 
TI  C 

ti  r 

TI  C 
TI  C 
TI  C 


AND.  (MNUM  .GB.  3))  ICT=MNUM-1 
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FILE:  T 1 


FORTRAN 


NAVA L  POSTGRADUATE  SCHOOL 


MNUM*  M  N  0M- 1 
GOTO  260 

DRAM  RETAINED  MILESTONES 

370  BLANK=0 . 

CALL  PTHFLT 

L A  ST=I M  P 

CALL  ELFIN  (LAST) 

COMPOTE  FLIGHT  PARAMETERS  POR  FINAL  LEG 


371 

3  72 


DX=  X  (MNOM 
DY=Y  i  MNOM 
DZ*  Z  MNOM 
RA  (MNOM)  = 
CA  (MNOM)  * 
IF  ( (EX  . 
HDG? 
GOTO 
CX  . 
CX  . 
CY  . 
DY  . 
MNOM 
MNOM 
MNOM 


EH 

ATAN2 
EQ.  0 
MNOM) 
372 
EQ-  0 
EQ.  0 
EQ.  0 
EQ.  0 
=  VEL 
=  VEL 
=  VEL 


MNOM-1 
MNUM-  1 
MNOM-1 


(DZ,  S  QRT  (DX*ft  2  ♦  DY 
-  'DY  .EQ.  0. 

DX) 


(DZ, S QRT  (D: 

.1  .08.  JD 

=AT  AN2 ( DY, I 

.)  .AND.  (DY  .GT.  0 

.)  .AND.  DY  .LT.  0 

.)  -AND.  DX  .LT.  0 

.)  .AND.  DX  .GT.  0 

(MNOM)  *  COS  (  HDG  (M  NOM 
(MNUM)  *  SIN  (HDG  (MNOM 
(MNOM)  ftSIN  (CA  (MNOM) 


••  2|  ) 

) )  GOTO  37  1 


CREATES  NEW  "  PTS  LOC  "  I?  NEW  WEAPON 
HAVE  BEEN  INPOT 


OR  MILESTONE  COORDINATES 


IF  ^IMP^.EQ.  0)  .AND.  (IGON  .NE. 


BLANK, BLANK, BLANK,  BLANK, BLANK 
IOH 


375 


376 


1)  |  GOTO  377 

REWIND  "  ' 

IGUN= 1 

WRITE (11,625) 

DO  375  1=1, MN 
LTR=0 

IF  (I  .EQ.  MBR)  LTR=66 
IF  ill  .EO.  MNOM  LT R=LAST 
WRITE  (1  1,62  5)  X(I)  ,Y(I)  ,Z(I)  ,  VEL  (I) 

WRITE  (1  1,62  6) 

WRITE (1 1,627)  VEL  (1)  , MBR , BLA NK , BLANK 
•BLANK 

DO  376  1=1,  6 

WRITE  (11,625)  XGON  (I).YGON(I)  ,Z3D 
WRITE ( 1 1 ,625) XSAM,YSAH,ZSAH 

CONVERT  ANGLES  FROM  RADIANS  TO  DEGREES 


,LTR 

,  IGON, IGON, BLANK, BLANK, IGON, 
N  (I) 


377 


380 


500 

501 
625 
6  26 
627 


DO  380  1=1. MNOM 

CA (I) =CA( I) •DGFAC 
RA(l)=RAil)  •DGFAC 
HDG  (I)  =  HDG  (  D  •DGFAC 
CALL  PRESET 
FORMAT  (217) 

- 2) 


3F1< _ 

4F10.  0,13) 

•  99999.  •) 

F10.0  ,12,811  ,F10.  0) 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
STO 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SOBROOTINE  ERRMK 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SOBROOTINE  ERRMK  (IERR) 

COMMON/P AP./X  (200)  ,IJ20G)  .Z  (200)  , HDG  ( 
COMMON/P  AR1/XDOT  (200)  ,  YDOT(200  j  ,ZDOT 
COMMON /ERR/MKERX  (3)  .MKSRY(15) 

IF  (IERR  .GT.  20)  GOTO  85 

GOTO (  1,2, 3, 4, 5, 6, 7, 3,9, 10, 11 ,12,13 
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T1 
T  1 
T 1 
T 1 

n 

T 1 
T 1 
T 1 
T1 
T 1 
T1 
T 1 
T1 
T  1 
T1 
T 1 
T1 
T1 
T 1 
T1 


1 

HDG 

MNOM 

=1.57079 

T 1 

HDG 

MNOM 

=-1.57079 

T 1 

HDG 

MNOM 

=3. 14159 

T1 

HDG 

MNOM 

=  0. 

T1 

^COS  (C 

.A  ( MN 

tIM)  ) 

T 1 

)  '“’COS  (CA  (MNOM)  ) 

T 1 

m  1 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

C2ob>'f5(fa”!ifilA  <200>  'vs-<200» 

,14,15,16,17,18,19,20) , IERR 


T 1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T 1 
T  1 
T 1 
T1 
T1 
T 1 
T1 
T1 
T1 
T 1 
T1 
T1 
T 1 
T 1 
T 1 
T1 
T 1 
T1 
T1 
T 1 
T1 
T 1 
T 1 
T 1 
T 1 


T1  0 


’1 
T 1 
T 1 
T1 
T  1 
T  1 
T 1 
T  1 
T  1 
T1 


FILE:  T 1 


FORTRAN  A 


NAVAL  POSTS  RAD  DATE  SCHOOL 


WRITE  (6.60  1) 

GOTO  7  5 
WRITE  (6.  602) 

GOTO  75 
WRITE  (6.  603) 

GOTO  75 
WRITE{6.  604) 

GOTO  75 
WSITE(6.  605) 

GOTO  75 
WRITE(6.  606) 

GOTO  75 
WRITE(6.  607) 

GOTO  75 
WRITER  608) 

GOTO  75 
WRITE(6.  609) 

GOTO  75 
WRITE(6,  610) 

GOTO  75 
WRITE  (6,  61  1) 

GOTO  75 
WRITE(6,  612) 

GOTO  75 
WR  IT  E  (6.  613) 

GOTO  8  5 
WRITE(6.  614) 

GOTO  55 
WRITE  (6.  615) 

GOTO  5  5 
WRITE(6.  616) 

GOTO  85 
WRITE(6,  617) 

GOTO  7  5 
WRIT£(6.  618) 

GOTO  ^ 5 
WRITE(6.  619) 

GOTO  85 
WRITE(6.  620) 

GOTO  85 

WRITE  (6,6  50)  X(HNUN)  ,1  (MNUH)  ,Z(MN0H)  ,VEL  (MNUM) 
RETORN 

FORMAT  (•  HAXIHOM  BRAKING  EXCEEDED*) 

FORMAT (*  MAX  G  EXCEEDED') 


FORMAT 
FORMAT 

6  03  FORMAT  (•  ALT  TOO  LOW') 

604  FORMAT i *  ALT  TOO  HIGH* ) 

605  FORMAT  •  STALL*) 

606  FORMAT  '  POP-OP  TOO  LOW') 

607  FORMATi «  BHB  DROP  LOW*) 

608  FORMAT!'*  BMB  DROP  HI*) 

609  FORMAT  '  TOO  FAR  FH  TGT') 

610  FORMATi  *  HDG>5  DEG  TO  TGT ' ) 

611  FORMATi'  FINAL  RON<2.33  SEC') 

612  FORMAT  (•  NO  HORIZONTAL  MOTION') 

613  FORMAT  *  TOO  CLOSE  TO  TGT’) 

6  14  FORMAT  *  ENTER  MISSILE  LOCATION') 

615  FORMATi*  ENTER  MILESTONES') 

6  16  FORMAT  •  ENTER  GUN  LOCATIONS') 

617  FORMAT I '  MAX  LIFT  EXCEEDED') 

618  FORMAT  »  MAX  THRUST  EXCEEDED') 

819  FORMATi  *  X  COORDINATE  LESS  THAN  6000  ') 

620  FORMATI'  DO  YOO  WANT  TO  FIX  THE  E  RRO  R : 0*NO, USE  THE  POINT 
650  FORMAT  ('  X,Y  ,  Z  ,A ND  VELOCITY'  ,4  F9.  1) 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SOB  ROUTINE  PTHPLT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCC 
SOEROOTINE  PTHPLT 

COMMON/P AR/X  (200)  .Y  (200)  ,Z  (200) ,  HDS  (  200)  ,  CA  (200)  ,  RA  (200) 
CCMMON/PAR 1/XDOT  (200)  ,  YDOT  (200  j  ,ZDOT  (200)  ,MNUM,MSR 


LOW  •) 
HTfiH* 


;  1*YES» ) 


T  1  0 
T 1  0 
T  1  0 
T 1  0 
T 1  0 
T 1  0 
T  1  0 
T 1  0 
T 1  0 
T 1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
?1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 


T 1  0 
T1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  C 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  C 
T1  0 


T1  0 
T1  C 
T1  C 
T1  C 
T1  C 
T 1  C 
T1  C 
T1  C 


,  VEL  (200) 
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FILE:  T 1 


FORTRAN  A 
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COMMON  IEAOD ,MINY,MAXY,MINX,  MAXX 
WRITE  (6 ,600)  MNOM 


SAVE  MILESTONE  DATA 


TEMP  DATA 


WRITE  (19, 625)  X  (MNOM)  ,Y  (MNOM)  ,Z  (MNOM) 
600  FORMAT  (•  MILESTONE  *,13,'  ACCEPTED') 
625  FORMAT(4F10.  0,13) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCOCCCCCCCCCCCCCCCCCCCCCCCCC 
C  GONLOC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SOEROOTINE  GONLOC  (GX, GY,  RAD) 

COMMON  I EAOD , M IN Y ,M AXY ,MIN  X, MA  XX, MIN 

RETORN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SOBROOTINE  WIN 

C  THIS  ROUTINE  DEFINES  A  WINDOW  EXTENDI 

C  THE  HORIZONTAL  AXIS-  AND  FROM  MINY  TO 

C  AXIS.  THE  HORIZONTAL  RANGE  IS  RX,  THE 

cccccc  c  ccccc cccccc cccccccccccccccccc cccccc 

SUBROUTINE  WIN  (LX,HX,RX,  HY,  JMP) 
COMMON  IEAUD , M IN Y ,M AxY 
RETURN 
EN  C 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC cccccc 
cccccccccccccccccc cccccccccccccccccc cccccc 
C  SPOT 

C  THIS  RETURNS  AN  X-Y  PAIR  AND  TWO 

C  THE  ROUTINE  CREATES  A  DOT  AT  POIN 

C  OPERATOR  VERIFICATION  (ASCII"N"=7 

CCCCCCCCCCCCCCCCCC cccccccccccccccccc cccccc 
SUBROUTINE  S  POT  (X , Y  , LI  ,  L2) 

C  L1-0  READ  X  AND  Y 


,VEL  (MNOM)  ,  M BR 


CCCC  ccccccccccccccccccc 
ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 


1 , MAX  1 


ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

c 

NG  FROM  LX  TO  MX  ON  C 
MAXY  ON  THE  VERTICAL  C 
VERTICAL  RANGE  IS  RY  C 
CCCCCCCCCCCCCCCCCCCCCCC 


CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

COMMAND  VALUES  L1EL2  C 
T  X,  Y  AND  ASKS  FOR  C 
8)  C 

CCCCCCCCCCCCCCCCCCCCCCC 


IF  (LI  .EQ.  1)  GOTO  10 
WRITE  (6,6  00) 

READ  (5**)  X,V 
GOTO  20 

=  0  READ  AITIT ODE, OTHER WIS E  READ  ALTITUDE,  VELOCITY,  AND  A  CMD 

IF  (L2.  EC.  0)  GOTO  15 
WRITE  (6,6  10) 

WRITE ]6  -6  20) 

READ  (5,6)  Y,X,L1 

CONVERT  COMMAND  TO  PROPER  FORMAT 


IF  (L  1 
IF  (LI 


IF  (L  1 
IF  (LI 


L 1  =65 
LI  =66 
L1=82 
LI  =83 


WRITE  (6, 630) 

READ  (5,*)  Y 
20  L2*L1 

600  FORMAT  (’  ENTER  X  AND  Y  COORDINATES' I 
610  FORMAT!'  ENTER  ALTITUDE, VELOCITY, AND 
620  FORMAT  •  OPTION: 0=NONE:1 = AIM ; 2 =BONB; 
6  30  FORMAT  '  ENTER  ALTITUDE' ) 

RETURN 

END 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCC cccccccccccccccccc cccccc 
C  SUBROOTINE  SCENE 


ENTER  X  AND  Y  COORDINATES' I 
ENTER  ALTITUDE,  VELOCITY,  AND 
OPTION: 0=NONE : 1=AIM; 2 =BOMB; 
ENTER  ALTITUDE') 


AN  OPTION ' ) 
3=RESET; 4=STOP') 


CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 


T1  C 
T 1  C 
T1  C 
T 1  0 
T 1  C 
T  1  C 
T  1  9 
T 1  C 
T 1  9 
T  1  0 
T 1  0 
T  1  0 
T  1  C 
T  1  0 
T 1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 
T  1  0 
T1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
t  i  a 

T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 


1F2 


FILE:  T 1 


PORTRAN  A 


NAVAL  POSTGRADUATE  SCHOOL 


C  THIS  ROUTINE  DRAWS  THE  ATTACK  MAP 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  SCENE  (IRQ, ICT) 

COMMON  /LOC/X1  .Y1,Z1  .V1,tTR.LT  R2 

COHMON/PAR/Y  (200)  .  Y  (200)  ,Z  (2  00)  ,HDG  (200)  ,CA(230)  ,  RA  (200)  ,  V EL  (200) 
COMMON/ERR/MKERX  (3)  .MKERY  (i5) 

COHHON/N  N/IB ADD, M INI , M AXY , MI  NX , MAXX, MINI , MAX  1 


ASK  USER  FOR  RESET  NUMBER 


IF  (IR 


(IRQ  .EQ.  0) 
WRITE  (6.6001 
READ  (5,®)  ICT 


GOTO  10 


C  DISPLAY  DATA  FOR  FINAL  POINT  OF  THE  RESET  AS  OPERATOR  AID 

C 

WRITE  (6,650)  X  (ICT)  ,  Y  (ICT)  ,Z  (ICT)  ,  VEL(ICT) 

10  RETURN 

600  FORMAT  ('  AT  WHICH  MILESTONE  DO  YOU  WISH  TO  RESTART*) 

650  FORMAT  ( '  X, Y,Z, AND  VELOCITY*  ,4F9.  1) 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  XYZIN  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  XYZIN  (IV) 

COMMON  /LOC/X1  ,Yl  ,Z1 -VI,  LTR,LTR2 

COMMON  I BAUD , MIN Y,M AXY, MINX, MA  XX, MIN  1 , MAXI 

CALL  WIN  (MIN  X, MAXX, 1 8000. ,12000.,  1) 

C 

C  GET  X, Y  AND  THE  FIRST  COMMAND 
LTR=0 

CALL  SPOT  (XI  ,  Y  1.LTR.LDM) 

CALL  WIN  (MINI  , MAXI, 350. ,2200.,  1) 

LTB2*1 

LDM=*IV 

C 

C  GET  VEL  AND, IF  IV=1 , ALT  AND  THE  SECOND  COMMAND 
CALL  SPOT  (VI  ,  Z1 ,  LTTi2  ,  LDM) 

C  CONVERT  LOWER  CASE  TO  UPPER  CASE 


IF  (LTR  -GT.  96)  LTR=LTR-32 
IF  JLTR2  .GT.  96)  LTR2*LTR2-32 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  BEGIN  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  BEGIN 

COHMON/MH/IB ADD, HINY, MAX Y. MINX, MAXX, MINI , MAXI, MAP 
COMMON /OFT/IGUN, IPNCH, IEXT,ISA  M,I MP,  KER 
C 

C  READ  USER  OPTIONS 
C 

50  WRITE  (6,600) 

READ  (5.*)  I  GUN 


READJ5  ,  *)  IMP 
WRITE  (6, 635) 
READ  (5  ,*  )KEh 
WRITE  (6, 640) 


WRITE  (6 ,640) 

READ  (5  ,*)  KON 

IF  (KON  .NE.  0)  CALL  CONCHG 

FORMAT  ( '  GUNS:  0*DISK  FILE;  1«TERMINAL:2*PRESET  ') 
FORMAT  (  *  MILESTONE  INPUT:  0»DISK  FILE:  1  “TERMINAL ' ) 
FORMAT  (•  ERROR  CHECKING:  0*NO  CHECKING;  1=CHECK  FOR 


ERRORS*) 


T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  C 
T 1  0 
T1  C 
T 1  D 
T 1  0 
T 1  C 
T 1  0 
T 1  C 
T  1  C 
T  1  C 

ti  : 

T 1  C 
TI  C 
TI  C 
TI  C 
TI  r 
TI  C 

ti  >: 

T1  C 
TI  r 

ti  : 

T1  r 

TI  r 

Ti  r 


FILE;  T1 


FORTRAN  A 
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FORMAT (•  FLIGHT  S  GAME  PARAMETERS:  0  *DEF  AOLT;  1=USER  INPUT') 


C  DUMMY  SCREEN  8 INDOW  COORDINATES  T1 

C  T 1 

M  A  XX  =  1  T1 

MINX* 1  T 1 

MAX1=1  T1 

MIN1=MAXX*10  T 1 

MAXY=1  T1 

MINY* 1  T 1 

MAXY=777-MAXY  T1 

MINY®777-MINY  T1 

RETURN  T 1 

END  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T 1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
CCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 1 
CCCCC  AIMPT  CCCCCT1 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
SUBROUTINE  AIMPT  (I)  T1 

COM  MON/TA  R/TARGX, TARG  Y  T1 

COMMON/PAR/X  (200)  ,  Y  (2  00)  T1 

C  *7* 

C  COMPUTE  DISTANCE  TO  THE  TARGET  T1 


DX=TARGI-X 
DY=TARGY-Y 
DIST=SQRT  (1 


-ffxl 

T  (D  X*  1 


♦DY^DY) 


WRITE  DISTANCE  TO  TARGET 


DIRECTIONS 


ALIGNMENT  TO  USER 


WRITE  ( 

EX=100 

DY=100 

WRITE 

WRITE] 

10 

FORMAT 

15 

FORMAT 

20 

FORMAT 

SETl 

END 

-*DY/DIST 
6,15)  DX 
6,20  DY 

•  DISTANCE  TO  TARGET  IS',P8.  1 

•  INCREMENT  X',F8.1,'  METERS 

•  INCREMENT  Y',F8.1,'  METERS 
RN 


,'  METERS' 
POR  EVERY 
FOR  EVERY 


MTRS 

MTRS 


TGT ' ) 
TGT  ' ) 


CC CCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T 1 
CCCCC  ELFIN  CCCCC  T1 
CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCC  T 1 
CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 


SUBROUTINE  ELFIN  (LAST) 

COMMON /OPT/I GO  N. IPNCH, IE XT, I S A  M, I  HP,  KER 
COMMON/MN/  I  BAUD, MINY, MA XY , MIN X, M AXX , MIN  1 , MAXI 


OLD  (LAST=0)  OR  N 

IF  (LAST  .EQ.  0) 

REQUEST  USER  3UTP 

WRITE  (6,595) 
READ  (5  ,*) 
IF  (LAST. 
LAST®  1 


(LAST®  1)  FLIGHT  PATH? 


GOTO 


USER  OUTPUT  OPTIONS 


LAST 

GE.2  .OR.  LAST. 
♦  82ftLAST 


LT.  0)  GO  TO 


WRITE(6 ,610) 

WRITE J6 , 620) 

READ  (5,*)  IPNCH 

'  MILESTONES  CAME  FROM  DISK,  RETURN  END  OF  FILE  MARKER 


(LAST  .EQ.  01 
ilPNCH  .EQ.  0 
(IPNCH.  EQ.  2)  G 
WRITE  (6,6  30) 
READ  (5,*)  I  EXT 


LAST=83 

RETURN 


GOTO 


154 


ono 


FILE:  11 


FOR TRAM  A 


NA7AL  POSTGRADUATE  SCHOOL 


IF  ( 

100 

WRITE] 

REA 

IF 

RETURN 

595 

FORMAT 

610 

FORMAT 

6  20 

FORMAT 

6  30 

FORMAT 

640 

FORMAT 

END 

RETORN 


ISAM 
.  LT. 


(ISAM 


GOTO 


595  FORMAT ('  ARE  YOO  FINISHED  WITH  THIS  FLIGHTPATH:  0  =  NO;  1=YSS')  T1 

610  FORMAT  '  OOTPOT  FILE:  0* NO  OOT POT ;  1=P001  FILE  ONLY')  T1 

620  FORMAT  i  *  2*MICE  FILE  ONLY;  3*P001  &  MICE  FILES')  T1 

630  FORMAT  '  EXTENDED  OOTPOT:  0*NOT  RANTED;  1 ^EXTENDED  OOTPOT')  T1 

640  FORMAT  •  MISSILE  TYPE  BETWEEN  1  AND  7')  T1 

END  T 1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
CCCCC  CONCHG  CCCCCT1 

CCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCC CCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT1 
SOEROOTINE  CONCHG  T1 

COMHON/PAR3/TMD, ACLIFT.CLMAX, WL.TMAX  ,CD0 ,CDK. V  MAX  1 ,  VMAX2  T1 

COMHON/P  AR4/ APPfiAX. HTMIN, HTM AX , SPDMI N, GM AX, POP MIN  T1 

COMMON /TAR/TARGX,TARGY  T1 

T1 

WRITE  INSTROCT IONS  T1 

T1 

30  WRITE  (6 ,100)  T1 


WRITE 

WRITE 


6.1QS 


WRITE i 6, 115 
WRITE  6 , 120 
WRITEi 6,  125 
WRITE  6 , 130 
WRITE  6,  135 
WRITEi 6,140 
READ  (S,1*  K 
IF  ((K  .LE.  0)  .OR. 

00  5§5?'5-6 

READ  (5  ,A)  CLMAX 
GO  TO  30 
WHITE  (6,203) 

READ  (5  .*)  WL 
GO  TO  30 
WRITE  (6,204) 

R  EAD  (5  )  SPDM 

GO  TO  30 
WRITE  (6,205) 

READ  (5  ,*) GMAX 
GO  TO  30 
WRITE  (6,206) 

READ  (5  ,*»)HTMI 
GO  TO  30 
WRITE  (6,207) 

READ  (5  ,<*)HTMA 
GO  TO  30 
WRITE  (6,208) 

R  EAD  (5  ,*)  POPM 
GO  TO  30 
WRITE  (6,209) 

READ  (5,*)  APPM 
GO  TO  30 
WRITE  (6,210) 

READ  (5.*  TMA 
GO  TO  30 
WRITE  (6,211) 
READJ5  t*)CD0 
GO  TO  30 


(K  .GT.  17))  GO  TO  30 
7,8,9,10,1  1,12,13,14,15,  16,17) 


SPDHIN 


I  GM  AX 


!  HTMIN 


i  HTMAX 


POPMIN 


APPHAX 


TMAX 


GO  TO  30 
WRITE  (6,212) 
READ  (5.*) 
GO  TO  30 
WRITE  (6,213) 
READ  (5.*) 
GO  TO  30 
WRITE  (6,214) 


7MAX1 
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FORTRAN  A 


NAVAL  POSTGRADUATE  SCHODL 


READ  (5  .*  )  V  MAX2 
GO  TO  30 

15  WRITE  (6,215) 

READ(5f!*)TARGX,TARGY 
GO  TO  30 

READ  NEW  PARAMETER  VALUES  PROM  THE  DISK 

16  REWIND  16 

READ  (16,300)  CLM AX ,  WL,  SPDMI N,  G  M  AX,  HTMIN,  HTMAX 
READ  (16,300)  POPMIN , APPM AX. TM A X ,CD0 ,CD K,  VMAX 1 
READ  (16,300  VMAX2 ,TARGX  ,TARG Y 
GO  TO  30 

WRITE  PARAMETER  VALUES  TO  THE  TERMINAL 

17  WRITE  (6,2  50) 

WRITE  6, 300) CLMAX,WL,SPD MIN, GM AX, HTMIN, HTMAX 
WRITE  6,255 i 

WRITE i 6, 300  POPMIN, APP MAX, T MAX ,CD0 ,CDK,VMAX1 
WRITE  6,260 

WRITEi 6, 300  VMAX2,TARGX, TARGY 
GO  TO  30 

SAVE  PARAMETER  VALUES  ON  DISK  AND  RETURN  TO  CALLING  ROUTINE 
200  REWIND  16 


T1  C 
T 1  C 
T1  C 
T1  C 
T 1  ? 
T1  C 
T 1  C 
T1  C 
T 1  C 
T1  C 
T1  C 
T1  C 
T1  C 
T1  0 
T 1  C 
T 1  C 
?1  C 
T1  0 
T1  C 
T 1  C 


T1  0 
T1  C 

m  ^ 


RETURN 

1  00  FORMAT ( 
1 05  FORMAT  I 
110  FORMAT ( 
115  FORMAT  I 
120  FORMAT I 
125  FORHATj 
f  LIFT*) 
1 30  FORMAT! 
1 35  FORMAT  i 
140  FORMAT 

202  FORMAT 

203  PORMAT 

204  FORMAT 

205  FORMAT 

206  FORMAT 

207  FORMAT 

208  FORMAT 

209  FORMAT 

210  FORMAT 

211  FORMAT 

212  FORMAT 

213  FORMAT 

214  PORMAT 

215  FORMAT 
250  FORMAT 
255  FORMAT 

•MAX  SPI 
260  FORMAT  I 


SELECT  PARAMETER  "*0  BE  CHAN 
2=M AX  LIFT  COEFF;  3*WING  J.O 
5=M AX  G  FORCE;  6= MIN  ALT:  7 
8=D ISTANCE  TO  TARGET  BEFORE 
9=*H AX  APPROACH  ALT;  10*MAX 

12*LIFT  DRAG  CONSTANT:  1 3*M 
1 4=  MAX  SPD  W/O  BOMB;  15*TAR 
16* RE AD  PARAMETER  FILE;  17* 
ENTER  MAX  LIFT  COEFFICIENT* 
ENTER  WING  LOADING') 

ENTER  STALL  SPEED*) 

ENTER  MAX  G  FORCE  ALLOWED*) 
ENTER  MINIMUM  ALTITUDE*) 
ENTER  MAXIMUM  ALTITUDE  (LES 
ENTER  MINIMUM  DISTANCE  TO  T 
ENTER  MAXIMUM  APPROACH  ALT! 
ENTER  MAX  THRUST  TO  WEIGHT 
ENTER  DRAG  COEFFICIENT  FOR 
ENTER  LIFT  DRAG  CONSTANT') 
ENTER  MAX  SPEED  CARRYING  A 
ENTER  MAX  SPEED  AFTER  BOMB 
ENTER  TARGET  X  AND  Y  COORDI 
MAX  CL  WING  LD  STALL  SPD 
POP-UP  DIST  APPR.HT.  MAX 
WITH  BOMB') 

MAX  SPD  W/O  BOMB  TARGET 


MAX, HTMIN, HTMAX 
X ,  CDO , CDK,  VMAX 1 


GED:  1=NO  MORE  CHANGES') 
ADING:  4=STALL  SPEED') 

=  MAX  ALT  (<22  00  MTF)  ' ) 
POPUP  ALLOWED') 

T/W  RATIO;  1 1=DR AG  CDBF. 


!AG  CDEF.  W/O 


AX  SPD  WITH  BOMB') 
GET  COORDINATES  ') 
LIST  PARAMETERS') 


S  THAN  2000  METERS)') 
ARGET  BEFORE  POP-UP  1 


ARGET  BEFORE  POP-UP  ALLOWED') 
TUDE*  ) 

ALLOWED' ) 

ZERO  LIFT') 

BOMB'  ) 

IS  RELEASED') 

NATES  ') 

MAX  G  MIN. HT.  MAX. HT. •) 
THRUST  CDO  DRAG  CONSTANT 


260  FORMAT (*  MAX  SPD  W/O  BOMB  TARGET 
300  FORMAT  (6F12.  4) 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  ERRCHK 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  ERRCHK  (IERR) 

COHHON/PAR/X  (200)  .YJ200[,Z  (200)  , HDG  ( 


X  COORD. 


TARGET  Y  COORD. ») 


CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCC 


EB  RC HK  (X EB  R 

(200)  .Y  (200  ,Z  (200)  ,HDG  (200)  ,CA  (200)  .RA  (200)  ,  VSL(200) 
XDOT  (200)  ,YDOT  (200)  ,ZDOT  (20&)  ,MMUM,M§R 


ARGY 


COHMON/P AR3/TMD, ACLIFT,CLMAX, WL,TMAX , CDO, CDK 


T1  0 
7 1  0 
T1  0 
T 1  0 


T  1  0 
T 1  0 
T  1  0 
T 1  0 
T 1  0 
T  1  0 
T 1  0 
T  1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 
T 1  0 
T 1  0 
T1  0 


T1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
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COMMON/P AR4/ APPMAX, HTMIN, HT MAX ,  SPDMI N,GMAX,POPMIN 
DATA  TMSAV/-  }./ 

DX*T  A RGX-  X  ( MNO M) 

DY*TARGY-Y  (HNUM) 

DIST*SQRT  (DX***^  «■  DY**2) 

INITIALIZE  POPALT  AND  TMSAV 


IF  ((MN0M.NE.2)  .  AND.  (TMSAV.  NE. -1 .) )  SO  TO  15 
POpAIT*0 . 

TMSAV*TM AX 

IF  (MBR  .  EQ.  0  .AND.  THAI. NE. TM SAV)  TMAX-TMSAV 
CALL  ERRnK  (22) 

IP  (MER  .  GE.  1)  GOTO  30 

IF  ((CIST  .LT.  POPMIN)  .OR.  »'Z  (MNO  M)  .LT.  APPMAX))  GOTO  30 
I ERR  *4 
RETURN 

IF  (DIST.  GT. POPMIN  .AND.  Z  (  MNOM)  .  GT.  POP  ALT)  POPALT=Z  (MNO  M) 
IF (Z (HNOM)  .GE.  HTMIN)  GOTO  40 
IERR *3 
RETURN 

IF  (Z(MNOM)  .  LE.  HTMAX)  GOTO  45 
IERR  *4 
RETURN 

IF(VEyMNOM)  .GE.  SPDMIN)  GOTO  53 
RETURN 

IF  (HNOM  .EQ.  2)  RETURN 
IF  (ACLIFT  .LE.  GMAX)  GO  TO  51 
IERR  *  1 
RETURN 

COMPOTE  DRAG  AND  LIFT  FORCES 

RH0*0.025  6*EXP(-0. 103*  (Z(  MNOM)  /10  00.)  ) 

IF  (ZjHNOM)  .GE.  10670.)  GO  TO  52 
RH0*O.OO793*EXP(-O.  156*(ZfMNOH)  -  10670.)  /1 000. ) 

CL*  AC  LIFT/  (RHO*  (V  EL  (HNOM)**  2)/WL> 

IF  (CL  .LE.  CL  MAX)  GO  TO  53 
IERR*  17 
B  ETC  BH 

DW*  (  (CDO+»:DK*CL*CL)  /CL)  *ACLIFT 
TW-TMD+DW 

IF  (  (TW  .LE.  TMAX)  .AND.  (TW  .GE.  0.))  GOTO  55 
IF  (TW  .GT.  THAI)  IERR*  18 

DW*  (RHO*  (VEL  (HNOM)  **  2f/WL)  *  (  0.  0  5+CDO+CDK*  (CLftffi2) )  /2. 

IF  ’7*!D*DW  .LE.  0)  IERR*1 
IF  (IERR  .NE.  0)  RETURN 
IF  (MNOM  .BE.  MBR)  RETURN 


TMAX. NE. TMSAV)  TMAX-TMSAV 


0.)  )  GOTO  55 


EVALUATE  BOMBING  RUN 

DT*T (HNOM) -T(MNUM-I) 

TGTHDG*AT  AN2  (DY,  DX)  *57.29578 
IF  (TGTHDG  .LT.  0.)  TGTHDG*TGTHD  G*360 . 
DX*X  (MNOM)  -  X  (MNOM-  1) 

DY* Y  (HNOM)  -  YiMNOM-li 
ACHDG*ATAN2  (DY.DX)  *57. 29578 
IF  (  ACHDG  .LT.  0.)  ACHDG*ACHD3  +360. 
HDGLMT*ABS  (TGT HD G- ACHDG) 

IF  (POPALT  .GE. 1000.)  GOTO  58 


IF  (POPALT  .GE. 1000.)  GOTO  5 
IERR *6 
RETORN 

IF  (Z(HNOM)  .GE.100. )  GOTO  60 
IERR *7 
RETURN 

IF  (Z(HNOM)  .LE.  2000.)  GOTO  65 
IERR *8 
FETtJ  RB 

IF  (DIST  .LE.  2000.)  GOTO  75 
IERR *9 
RETURN 


T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T1  0 
T 1  0 
T1  0 
T1  0 
T1  0 
T1  C 
T1  0 
T 1  0 
T  1  0 
T 1  2 
T  1  5 
T 1 
T  1 
T1 
T1 
T  1 
T 1 

T 1  . 
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75 

IF  (HCGLMT  .LE.  5.)  GOTO  80 

T 1  C 

IESR  *  1 0 

T 1  C 

RETURN 

T 1  C 

80 

IF  (DT  .GE.  2.33)  GOTO  85 

T 1  C 

IERR*1  1 

T1  C 

85 

THAI*  1.2*TMAX 

T 1  C 

RETORN 

T 1  C 

END 

T 1  0 

I 


APPENOIX  0 


IBMPIP  MODIFIED  MODULES 


cccccccccccccccccccccccccccccccccccc ccccccccccccccccccccccccccocc 
ccccccccccccccccccccccccccccccccccccccccrcccccccccccccccccccccccc 

C  SOBROOTINE  PTHPLT  C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SOEROOTINE  PTHPLT 

(200)  ,Z  (200 )  ,  HDG  (  200)  ,  CA  (20  0)  ,RA  (200)  , VEL ( 200) 
'  “  J)  ,  MNCJM  ,  MB  R 


COMMON /P AR/X  (200)  .Y  (200)  ,Z  (200)  ,HDG  (200)  , 
COMHON/PAR1/XDOT  (200)  ,  YDOT  (200)  .ZDOT  (200) 
COMMON/MN/IB  ADD, MINY , MAX Y,  NINX,HAXX 


C 

C 

C 


C 

c 

c 


v-  u u  i w/  m  nu  u>  uin  i  «  n  i 

REAL*!*  IX1.TY1 ,TX2,TY2 
LOGICAL*  1  CHARS  (12) 

TX 1*X (M  NOM-1 ) 

TX2*X  MNOH) 

TY1*Y  NNCM-1) 

TY2*Y  (MNOH) 

IDENTIFY  THE  NAP,  DRAW  AND  LABEL  THE  PLIGHT  LEG 

CALL  HI N  (MIN  X.MAXX.  18000.  ,  12000-,  0) 

CALL  GBMCVE(TX1,TY1) 

CALL  GBDRAHf  TX  2£TY2f 
IF  (  NNUM  .GT.  99)  IW*3 

IF  ((MNOH  .GT.  9)  .AND.  (NNOM.  LT  .  100)  )  IW*  2 
IF  /  HNOE  .LE.  9)  IH*1 

CALL  GAXITC  (1,HNOM,IH, CHARS) 

CALL  GBCHAR(Txi,TY2, 2.  ,0.  , I H, CHARS) 

CALL  GSFBCE 

SAVE  THE  PCINT  IN  'TEMP  DATA' 


625  FORHA'f  ^5^X^NT,H>  »Y  (MNON)  ,  VEL  (NNON)  ,  HBR 

625  8ET0FN(4  10*  #  3) 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC 
C  GONLOC  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SOBROOTINE  G ONLOC  (GX,GY.  RAD) 

COHHON/MN/IB AOD, MINT, MAXY, MI  NX , HA  XX, MINI, N AX  1 
REAL*«  X,Y,DX,DY 
X*GX 
Y»GY 


C 

C 

C 


IDENTIFY  THE  MAP  AND  PLACE  A  * ♦*  AT  TH E  LOCATION 
CALL  WIN  (MINX, MAXX,  18000.,  12000.,  0) 


CALL  GBNdVE 
CALL  GBDRAH 
CALL  GBMOVE 
CALL  GBDSAH 


A  m  14  n  A  A  « 

X-75.  ,i 
X+75 .  , Y 
X,Y»7$. 
X,  Y-75. 
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FORTRAN 
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C 

C 

C 


c 

c 

c 


DETERMINE  NUMBER  OF  STEPS  TO  BE  USED 


I STEP=  3 
IF  (RAD.  IT. 


DRAM 

DO 


1600.)  1ST EP*6 
A  CIRCLE  AROUND  THE  SITE 


10  1*3*180. ISTEP 
ANGLE *1*0 .034907 
DX*RAr*COS  (ANGLE)  +X 
DY*RAt»SIN]ANGLEi+Y 
CALL  GBMOVE  (DX  +  10..DY) 

10  CALL  GBDFAB(DX-10.,DY) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
C  SPOT  C 

C  THIS  RETURNS  AN  X-Y  PAIR  AND  TWO  COMMAND  VALUES  L1SL2  C 

C  THE  ROUTINE  CREATES  A  DOT  AT  POINT  X,  Y  AND  ASKS  FOR  C 

C  OPERATOR  VERIFICATION  (ASCI  I"N  "*7  8)  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  S POT  ( X ,  Y  , LI  ,  L2) 

RE AL*4  TX,TY,DOT 
INTEGER* 4  L,  M , KEY 

C  READ  THE  CURSOR 
C 

100  CALL  GBRXYC(M,L, KEY, TX,TY) 

DOT*40. 

IF  (TX  .LT.35  0.)  DOT=9. 


C 

C 

C 


C 

C 

C 


C 

C 

C 


MARK  THE  SPOT 

CALL  GBGLOT(DOT,TX,TY) 

X*TX 

Y*TY 

DOES  THE  USER  ACCEPT  THE  SPOT? 

CALL  GBRXYC(M, L,KEY, TX.TY) 

IF  (M  .  EQ.  0)  GOTO  100 

CONVERT  THE  COMMAND  TO  THE  PROPER  FORMAT 


.NE.  1)  GOTO  110 
JL  .EQ.  1)  L1*65 
I  .EQ.  2)  L  1*66 
L  .EG.  3)  LI *8 2 
L  . EQ.  4)  L  1*83 


L1*0 

"  (? 

IF 
IP 
IF- 

110  L2*L1 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
C  SCENE  C 

C  THIS  ROUTINE  DRAWS  THE  ATTACK  MAP 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  SCENE  (IRQ, ICT) 

13,  .tuA.™ 


COMMON /ERR/MKERX  i  jj.ntvijn  i  v  ioi 
COHMON/M N/IB AUD. MIN Y. MAX Y, MINX .HA  XX, MINI,  MAXI 

COHHON/P  AR/X  (200)  .1  (200)  ,2  (200 )  ,  HDG  (  200)  ,CA(200)  ,  R  A  (200)  ,  VEL  (200) 
COHHON/TAR/T  ARGX  ,TAHGY 


C 

C 


REAL*4  GX,GY 
LOGICAL*  1  CHARS  (20) 
ICT*0 

ERASE  THE  SCREEN 


T2 
12 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T  2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T  2 
T2 
T  2 
T2 
T  2 
T2 
T  2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
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195 


200 

201 


CALL  GSEFSE 
CALL  DSTERM 

READ  USER  OPTIONS 

WRITE  (6, 635) 

READ  (5  ,*) MAP 
IF  (IRQ  .  EQ-  0)  GOTO  19  5 
WRITE  (6,63  Oj 
READ  (5/5)  ICT 
DRAW  THE  X  ,Y  M  AP 

THE  RODTINE  READS  X.Y  PAIRS  PROM  FILE  09.  A  -2.0,0  INDICATES 
END  OF  FILE, -0.5,0  INDICATES  A  MOVE, ALL  OTHER  VALDES  ARE  PO¬ 
SITIVE  AND  RESULT  IN  A  DRAW  TO  THAT  POINT. 

RE-INITIALIZE  THE  SCREEN 
CALL  DSINIT 

CALI  WIN  (MINX, HAXX,  18000.  ,  1200  0.,  1) 

IF  (MAP  .EQ.  5)  GOTO  210 
REWIND  9 

READ (9,501)  GX,GY 
READ (9,501 j  GX,  GY 
CALL  GtMOVE  (GX,GY) 

READ (9 ,501 1  GXlGY 

IF  (GX.  LT.-l)  GOTO  210 
IP  (GX. LT .  0[  GOTO  200 
CALI  GBDRAW  (GX,  GY) 

GOTO  201 

MARK  THE  TARGET 


T2  0 
T2  0 


210  CALL  GONLOC(TARGX,TARGY, 150.) 

CALL  GONIOC(TARGX,TARG  Y,  300.  ) 

DRAW  TIC  MARKS  EVERY  2000  MTHS 

DO  215  1*1,8 
IW»2*I 

CALL  GBMOVE  (1*2000.  ,1000.) 

CALL  GBDRAW  1*2000. ,0.) 

CALL  GAXITC  i  1,  IW,  2, CHARS) 

CALL  GBCHAR  1*2000.  ,0.  ,  2.  ,0  .  ,2  ,CH  ARS) 

"  (I  .GE.  6)  GOTO  215 

CALL  GBHOVe  (1000.  .1*2000.) 

0. ,2000.*!) 

1 ,  lW ,2, CHARS) 

;-60.  ,1*2000.  ,2.  ,0.  ,2, CHARS) 


IF 


!I  .GE.  6)  GOTO 
.AIL  GBHOVE 
CALL  GBDRAW 
CALL  GAXITC 
CALL  GBCHAR 
215  CONTINDE 
I 1 *MIN Y 
I2-HAXY 
MAXY*MINY-15 
HINY*HlNY-200 
CALL  WI 
CALL  GBC 
CALL  GBCBAR 
CALL  GSPHCE 
MAXY*I2 
MINYaI 1 


NY— 20  0 

N  (MINX* 275. MAXX- 175,  195. .185.  ,0) 

CHARJ10. , 110. .2.5.0.. 19. »X&Y  MARKS  IN  1000 
CBAR(  10. ,40.  ,  2.  5,0.  ,25,  'ZERO  DEGREES  ALONG 


"S’) 

X  AXIS') 


DRAW  THE  ALTIMETER 


CALL  WIN  (MIN  1,  HA  XI, 350. ,2200.,  1) 
DO  220  1*2,2  0,2 


V/  X  *•  V  f 

CALL  GBHOVE 
CALL  GBDRAW 
CALL  GAXITC 
220  CALL  GBCHAR 
DO  225  1*1,6 

CALL  GBHOVE  (1*50.  ,  100.) 


0.,I*100.) 

350.  ,1*100.) 

1,1,  2. CHARS) 

0.  ,1*  100.  ,  2.,  0.  ,2, CHARS) 


T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

•v  ? 


T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2  C 
T2  0 
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FILE:  T2 


FOETH  AN  A  NAVAL  POSTGRADUATE  SCHOOL 


>  CALL  GBDRAW(I*50. ,0.) 
MASK  RESET  POINT  VELOCITY 


IF  (IRQ.NE.O  . 

MAXY=MINY-15 

MINY=MINY-200 


r  AND  ALTITUDE  AS  OPERATOR  AID 
. ST. 1 ) C ALL  3BGD0T (9. , VEL (ICT) ,Z(ICT)) 


CALL  WIN  (MINI-250, MAX1+650, 195. .185.  .0) 

CALL  GBCBAR(  10.,  110. .2. 0.0..  19. ‘ALT  HARKS  IN  1000"S') 
CALL  GBCHAR(  10- #60.  ,5.0,5.  ,29,  ^VELOCITY  IN  50"S  ALONG 


CALL  GSFRCE 
MAXY* I 2 
HINY-I 1 

FORMAT  (2F 10.  2) 
FORMAT  ( *  AT  WH 


AXIS' ) 


630  FORMAT (•  AT  WHICH  POINT  DO  YOU  WANT  TO  RESTART') 

635  FOBMATf'  VILLAGE:  0*NOT  DRAWN;  1  *  VIL  L  AGE  DRAWN') 

650  FORMAT('  X,Y,Z,AND  VELOCITY'  ,4F9.  1) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  WIN  C 

C  THIS  ROUTINE  DEFINES  A  WINDOW  EXTENDING  FROM  LX  TO  MX  ON  C 

C  THE  HORIZONTAL  AXIS.  AND  "ROM  MINI  TO  MAXY  ON  THE  VERTICAL  C 

C  AXIS.  THE  HORIZONTAL  HANt  t  IS  RX,  THE  VERTICAL  RANGE  IS  RY  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC 


SUBROUTINE  WIN  (LX.MX  ,RX,  RY  ,  JMP) 
COMMON/MN/IB AUD, MINY , MAXY 
REAL* 4  W  INI  (4) 

INTEGER* 4  VI (4) 

DATA  WIN1  (1) /0./,WIN1  (2) /0./ 


>0./,WIN1  (2)  /0./ 


DEFINE  THE  WINDOW 


VI  (2)  =  M 
VI  t4j»H 
With  (3) 

HWSL 

ii  hi 


MINY 
MAXY 
)  =RX 

li” 

MX 


CALL  GASVIE(V1,0) 
CALL  GASWIN(WINI.O) 
IF  (jy?  .EQ.  0)  GOTO 


rWIN1  (4 
,  WIN1  (4 
,WIN1  2 
HI (2)  ) 


C  FLASH  THE  DEFINED  WINDOW 
C 

ICT=4*50*IBAUD 
DO  10  1=1, ICT 

CALL  GBMOVE  (0.,0.) 

CALL  GBDRAW  (WIN1  (1)  ,WIN1  (4)  ) 

CALL  GBDRAW  (WIN1  13)  ,  WIN1  (4 
CALL  GBDRAW  (WIN1  (3t_ ,WIN1  (2)  } 

10  CALL  GBDRAW  (WIN1  (1)  ,WIN1  (2)  ) 

1 1  RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  BEGIN  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  BEGIN 

COMHON/HN/IB AUD, MINY, MAXY, MINX ,NAXX,  MINI  , MAXI 
COMMON /OFT/IGUN,IPNCH,IEXT, IS AM, IMP,  KER 

C  READ  USER  OPTIONS 
C 

50  WRITE  (6,600) 

READ  (5,*)  IGUN 
WRITE  (6,630) 

READ  (5,*)  IMP 
WRITE  (6 ,635) 

READ  (5,*)  KER 


T2  C 
T2  0 
T2  C 
T2  0 
T2  9 
T2  C 
T  2  0 
T2  C 
T2  0 
T  2  0 
T2  C 
T  2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0. 
T2  0 
T2  0 
T2  0 
T2  o: 
T2  0 
T2  0. 
T2  0 
T2  o: 
T2  o: 
T2  0. 
T2  o: 
T2  0: 
T2  o: 
T2  0 
T2  0. 
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FILS:  T2 


FORTS  AN  A 


NAVAL  POSTGRADUATE  SCHOOL 


WHITE  ( 
READ  (5 
WRITE (6 
READ  (5, 
IF  (KO N 
FORMAT 
FORMAT 
FORMAT i 
FORMAT 
FORMAT 


D  (5,*-)  IBAOD 
TEj6,640i 
D  (5,*)  KON 

(KO N  .NE.  0)  CALL  CONCHG 

MAT  •  GUN S: 0=DISK  FILE ; 1=TE RMI NAL : 2=PR ESET  •) 

MAT  •  EAOD  RATE:  0*300  BAUD:  1*12  00  BAUD') 

MAT  i  '  MILESTONE  INPUT:  0*DISK  FILE;  1  =TERMINAL' ) 
MAT  '  ERROR  CHECKING:  0  =  NO  CHECKING;  1=CHECK  FOP 


0)  CALL  CONCHG 

:0=DISK  FILE; 1=TE RMINAL : 2=PR ESET 


ERROR  CHECKING:  0  =  NO  CHECKING;  1=CHECK  FOP  ERRORS') 
FLIGHT  S  GAME  PARAMETERS:  3  *DEF AULT;  1  =  USFP  INPUT') 


C  INITIALIZE  THE  GRAPHICS  AND  CLEAR  SCREEN 
C 

MAXI*3200 
HINX=500 
MAX1*M AXX+22  5 
MIN1=MAXX+30 
MAXY*2500 
MINT*700 
C 

C  COMPUTE  THE  SCREEN  WINDOW  COORDINATES 
C 

CALL  DSINIT 
CALL  GSERSE 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCC  ELFIN  CCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  ELFIN  (LAST) 

COMMON /OFT/IGUN.IPNCH,IEXT, ISAM, IMP,  KER 
COMMON/MN/  I  BAUD, MINT, MAXI , MINX, M AXX ,MIN1 ,MAX1 

C  CLOSE  GRAPHICS  ROUTINES 
C 

CALL  DSTERH 
C 

C  OLD  <LAST*0)  OR  NEW  (LAST=1)  FLIGHT  PATH? 

IF  (LAST  .EQ.  0)  GOTO  20 
C 

C  REQUEST  USER  OUTPUT  OPTIONS 


WRITE  (6,595) 

READ  (5  ,*  LAST 
IF  (LAST.  GE.2  .OR, 
LAST*  1  ♦  82*LAST 
WRITE  (6,610) 

WHITEJ6 , 620) 

READ  (5  ,*)  IPNCH 


LAST.LT.  0)  GO  TO  15 


READ  (5,*)  IPNCH 

IF  MILESTONES  CAME  FROM  DISK,  RETURN  END  OF  FILE  MARKER 

IF  (LAST  .EQ.  0)  LAST=83 
IF  (IPNCH  .EQ.  0)  RETURN 
IF  (IPNCH.  EQ.  2[  GOTO  100 


IF  (IP 
WRITE  (6, 


RBTt^N 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


TE  (6 , 640) 

READ  (5,fj  ISAM 
V  (ISAM  .LT.  1) 


RETURN 


.OR.  (ISAM 


7)  )  GOTO  103 


♦HIT  ANI  KEY  FOR  OUTPUT  OPTION  SELECTION') 

ARE  YOU  FINISHED  WITH  THIS  FLIGHTPATH:  0=NO;  1=YES') 
SCREEN  OUTPUT:  0*NO  OUTPUT:  1=OUTPUT  DESIRED') 

OUTPUT  FILE:  0*  NO  OUTPUT;  1=P001  FILE  ONLY') 

2* MICE  FILE  ONLY;  3*P001  &  MICE  FILES') 
EXTENDED  OUTPUT;  0*NOT  WANTED;  1*EXTENDED  OUTPUT') 
MISSILE  TYPE  BETWEEN  1  AND  7') 


T2  o: 
T2  o: 
T2  0. 
T2  o: 
T2  0. 
T2  o: 
T2  o: 
T2  0: 
T2  o; 
T2  o: 
T2  o: 
T2  o: 
T2  0 
T2  0 
T2  0. 
T2  o: 
T2  0 
T2  0. 
T2  0 
T2  0 
T2  0 
T2  0. 
T2  0. 
T2  0 
?2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  3 
T2  0 
T2  0 
T  2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T  2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  C 
T2  0 
T2  0 
T2  0 
T2  3 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
?2  0 
T2  0 
T2  0 
T2  0 
T2  0 
?2  0 
T2  0 
T2  0 
T2  0 
T2  0 
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non  nnr<  non 


FILE:  T2 


FORTRAN  A  NAVAL  POSTGRADUATE  SCHOOL 


REAL  (5.  -)  APPMAX 
GO  TO  30 
WRITE  (6.2  10) 

READ  (§,’*•)  TM  AX 
GO  TO  30 
WRITE  (6.21  1) 

READ  (5.*)  CDO 
GO  TO  3  0 
WRITE  (6.2  12) 

READ  (5.*)  CDK 
GO  TO  30 
WRITE  (6.2  13) 

READ  (5.*1)  VMAX1 
GO  TO  30 
WRITE  (6,2  14) 

READ  (5.rt)  VMAX2 
GO  TO  3  0 


WRITE  (6.2  15) 

READ  (5.*)  TARGX,  TARG Y 
GO  TO  3  0 


READ 


PARAMETER  VALUES  FROM  THE  DISK 


REWIND  16 
READ  (16 
READ  (16 
READ  (16 
GO  TO  3  0 


(16,  300)  CL  MAX,  WL  ,  SPD  MIN  ,GM  A  X  .HTMIN  ,HT  M  AX 
1 1  6,300  POPMIN,  APPMAX. T SAX ,CD0 ,CDK,  VMAX1 
i  1  6 ,  300'  VMAX2,  TARGX,  TARGY 


WRITE  PARAMETER  VALUES  TO  THE  TERMINAL 
WRITE  (6,25  0) 

WRITE (6, 3 00) CLNAX,WL,SPDMIN,GMA  X ,HT MIN , HT MA X 


WRITE  (6  ,255 

WRITE  (6 ,3  00  POPMIN,  APPMAX  ,TM  AX,  CDO, CDK,  VMAX1 
WRITE  (6, 260 

WRITE  (6. 300)  VHAX2,  TARGX,  TARGY 
GO  TO  30 

SAVE  PARAMETER  VALUES  ON  DISK  AND  RETURN  TO  CALLING  ROUTINE 
)  REWIND  16 

WRITE  (16,  300)  CLMA X.  WL.SPDMIN.3M  AX, HTMIN, FJTMAX 
WRITE  (16,300)  POPMIN,  APPMAX.  T  MAX  ,CD0 , CDK,  V MAXI 
WRITE(16, 300)  VMAX2,  TARGX, TARGY 


RETL3N 
FORMAT  I 
FORMAT 
FORMAT  I 
FORMAT ( 
FORMAT  ! 
FORMAT  < 
$  LIFT*) 
FORMAT  I 
FORMAT | 
FORMAT  I 
FORMAT  j 
FORMAT ( 
FORMAT  I 
FORMAT  I 
FORMAT] 
FORMAT  I 
FORMAT! 
FORMAT  I 
FORMAT  < 
FORMAT  I 
PORMAT ! 
FORMAT  I 
FORMAT  I 
FORMAT  I 
FORMAT i 
FORMAT  I 


SELECT  PARAMETER  TO  BE  CHAN 
2=M AX  LIFT  COEFF;  3=WING  LD 
5=M  AX  G  FORCE;  6=MIN  ALT:  7 
8=Q ISTANCE  TO  TARGET  BEFORE 
9=MAX  APPROACH  ALT;  10=MAX 

12=  LIFT  DRAG  CONSTANT:  1 3=M 
14=  MAX  SPD  W/O  BOMB:  15  =  TAR 
16=  READ  PARAMETER  FILE:  17  = 
ENTER  MAX  LIFT  COEFFICIENT’ 
ENTER  WING  LOADING’) 

ENTER  STALL  SPEED’) 

ENTER  MAX  G  FORCE  XLLOWED’) 


GED:  1=NO  MORE  CHANGES’) 
ADING;  4=STALL  SPEED*) 

=  MAX  ALT(<2200  MTP.)  • ) 
POPUP  ALLOWED’) 

T/W  RATIO;  1 1 =DR AG  COEF. 


t AG  COEF.  W/0 


AX  SPD  WITH  BOMB’) 
GET  COORDINATES  ’) 
LIST  PARAMETERS’) 


S  THAN  2030  METERS)’) 
ARGET  BEFORE  POP-UP  J 


ENTER  MAXIMUM  APPROACH  ALTI 
ENTER  MAX  THRUST  TO  WEIGHT 
ENTER  DRAG  COEFFICIENT  FOR 
ENTER  LIFT  DRAG  CONSTANT’) 
ENTER  MAX  SPEED  CARRYING  A 
ENTER  MAX  SPEED  AFTER  BOMB 
ENTER  TARGET  X  AND  Y  COORDI 
MAX  CL  WING  LD  STALL  SPD 
POP-UP  DIST  APPR.HT.  MAX 


ARGET  BEFORE  POP-UP  ALLOWED’) 
TUDE’) 

ALLOWED’) 

ZERO  LIFT’) 

BOMB’  ) 

IS  RELEASED’) 

NATES’) 

M  AX  G  M IN. HT.  M  AX. HT. ’ ) 
TH3UST  CDO  DRAG  CONSTANT 


?2  0 
T2  0 
T2  0 
T2  0' 
T2  0< 
•*<  •)  g . 
T2  0 
T2  0- 
T2  O' 
T2  0- 
T2  0 
T2  0 
T2  0 
T2  O' 
T2  0 
T2  0< 
T2  O' 
T2  0- 
T2  0 

H  8 

T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  C 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  C 
T2  0 
T2  0 
T2  0 
T2  0 
-2  o 
72  6 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 


noo 


FILE:  T2 


FORTRAN  A 


NAVAL  POSTGRADUATE  SCHOO 


*msy  SPD  KITH  BOMB*) 

260  FORMAT {'MAX  SPD  W/O  BOMB  TARGET  X  COORD. 
300  FORMAT  {6112.  4) 

2ND _ _ _ r*r*r~r'  rmrmrmr‘ 


TARGET  Y  COORD. 


COMMON/PAR  VXDOT  (500),  Yd6t  (200)  ,ZD0T  (200)  ,MNUM,MBR 
C0MB0N/EFR/MKSRxj3)  JKERY  (15) 


COMMON/EBR/M  KERX  (3)  ,  M  k  nx;  x 
IF  (IERR  .GT.  20)  GOTO  35 

FLASH  THE  PROMPT  WINDOW 


CALL  WIN  (M KERX  (1)  ,  MKERX  (2)  ,  2  700 . ,  1  85.,  1) 

C!GOTOS(lS!3f«.5,6,7,3,9,10,  11,  12,  13,14,15,15,  17,  1  8,  19,  20)  ,  IERR 
WR ITE( 6 ,601) 


JTU  l  i 

WRITE(6,601) 
GOTO  75 
WR ITE( 6 ,60  2) 
GOTO  75 
WR ITE(  6, 60 3) 
GOTO  7  5 
WRITE(6,604) 
GOTO  75 
WRITE  (6 .605) 
GOTO  *5 
WR ITE( 6, 606) 
GOTO  75 
WR ITE( 6,607) 
GOTO  75 
WRITE{6,608) 
GOTO  75 
WRITE ( 6 , 60  9) 
GOTO  7  5 

"'lollSSs  ’ 

WRITE(6. 61 1) 
GOTO  7  5 
WRITE(6, 612) 
GOTO  75 
WRITE(6.  613) 
GOTO  85 
WRITS(6. 614) 
GOTO  85 
WRITE(6.615) 
GOTO  85 
WRITE(6. 616) 
GOTO  85 
WRITE] 6, 617) 
GOTO  7  5 
WRITE(6, 618) 
GOTO  75 
WRITE(6, 61  9) 
GOTO  35 
WRITE{6. 620) 
GOTO  85 


RETURN 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


WRITE(6,650) X(MNUM)  , I  ( MNDM)  ,Z(MNUM)  ,VBL(MNUM) 


MAXIMUM  BRAKING  EXCEEDED') 
MAX  G  EXCEEDED') 

ALT  TOO  LOW') 

ALT  TOO  HIGH') 

STA  LL ') 

POP-UP  TOO  LOW') 

BMB  DROP  LOW’) 

BHB  DROP  HI*)  . 

TOO  FAR  FM  TGT' ) 


T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T  2  0 
T2  0 
T2  0 
T  2  0 
T2  0 
T  2  0 
T2  0 
T2  0 
T2  0 
T  2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T  2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  O' 
T2  v 
T2  ' 


T^  0 

T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
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FORTRAN  A 


NAVAL  PO STS RAD  OATS  SCHOOL 


FILE; 

T2 

610 

FORMAT 

6  11 

FORMAT 

6  12 

FORMAT i 

613 

FORMAT 

6  14 

FORMAT i 

615 

FORMAT I 

6  16 

FORMAT 

617 

FORMAT i 

618 

FORMAT 

619 

FORMAT i 

6  20 

FORMAT  < 

650 

FORMAT 

END 

HDG>5  DEG  TO  TGT ' ) 

FINAL  RON<2.33  SEC') 

NO  HORIZONTAL  MOTION') 

TOO  CLOSE  TO  TGT') 

ENTER  MISSILE  LOCATION') 

ENTER  MILESTONES') 

ENTER  GUN  LOCATIONS') 

MAI  LIFT  EXCEEDED') 

MAX  THRUST  EXCEEDED') 

X  COORDINATE  LESS  THAN  6000') 

DO  TOO  WANT  TO  PIX  THE  SRRO  R : 0»NO,  USE  THE  POINT;  1  =  FES' ) 
X, Y,Z, AND  VELOCITY*  ,4F9.1) 


T2  0 
72  0 


T2 
72 
T2 
T2 
72 
T2  0 
T2  0 
T2  0 
T2  0 
72  0 
T2  0 


APPENDIX  E 


SCENE  PROGRAM  LISTING 


DIMENSION  LI  MX  (4)  , LIMY  (4) 
CALL  IMIT 
WRITE  (6  -600) 

READ  (5.*)  II 
ONE*-0 . 5 
TW0=-2. 0 
ZERO=0 . 0 
MAXX=KIN  (7.5) 

SINX=KIN  h.5i 
MAXY*KIN  (0.375) 

BINY=KIN  (4.375) 

MAXY=777-BAXY 

MINY=777-MINY 

READ  (5 .*) QT 

CALL  NEWFAG 

CALL  BOV  ABS  (  MI  NX  ,  MI  NY) 

CALL  DRWABSi  MINX,MAXY 

CALL  DRWABS(MAXX,MAXY 

CALL  DRWABS  BA  XX , BI  NY) 

CALL  DR  W  ABS  T  BINX  .  BINT) 

CALL  DWINDOiO. ,18000. , 0. , 


CALL  DRW  ABS I 
CALL  DRWABS | 
CALL  DRWABS I 
CALL  DRWABSj 
CALL  DWINDOl 
CALL  TWINDO 
IP  (II.GT.O) 
READ  (9,501) 
READ  (9 ,501) 


3. ,18000., 0. ,12000.) 

(BINX,MAXa,BINY, MAXx) 


GOTO  300 

X,  Y 
X,Y 


AL  nu  I  7  •  J  V  11  A  I  X 

CALL  BOV EA  (X ,  Y) 

READ  (9,501)  X,  Y 
IP  (X.  LT.-1)  GOTO  300 


X,  Y 

-TR,  X  ,Y) 


IP  (X.  LT.-1)  GOTO  300 
IP  (X.  LT .  Of  GOTO  200 
CALL  DRA WA  (X  ,  Y) 

GOTO  201 

WRITE  (9. 501)  ONE, ZERO 
CALL  VCURSR(LTR,X,Y) 

CALL  POINTA]X,Y) 

WRITE  (9  ,501 )  X,  Y 
CALL  VCORSH(LTR,X,Y) 

CALL  DRAWA(X,Y) 

WRITE  (9,501)  a, Y 

IP  (  LTR.EQ.  77)  GOTO  3 00 

IP  (LTR  .NE.  83)  GOTO  301 

WRITE  (9,501)  TWO, ZERO 

CALL  PIN 

FORMAT (217) 

FORMAT (2F10.  2) 

FORMAT  ('  ENTER  POSITIVE  INTEGER  FOR 

STOP 

END 


TWO, ZERO 


j2Fll>.  2) 

(•  ENTER 


RESTART') 
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